AVON CAMELOT 


A guide to computer graphics 


$3.95 

85050 



BY MARGARET ANN ZUANICH 

















Other Avon Camelot Books by 

Margaret Ann Zuanich and 
Susan Drake Lipscomb 


Basic Beginnings 

Basic Fun: Computer Games, Puzzles and 
Problems Children Can Write 

Basic Fun with Graphics: The Apple ® Computer Way 
Basic Fun with Graphics: The IBM PC ® Computer Way 


MARGARET ANN ZUANICH and SUSAN DRAKE 
LIPSCOMB have a unique combination of skills that 
contributed to the creation of BASIC FUN WITH 
GRAPHICS. Margaret Zuanich’s experience in the com¬ 
puter field has included everything from programming to 
management consulting. She earned her Master’s Degree 
in Business and is now involved in computer systems 
training. Susan Lipscomb holds a Master’s Degree in Edu¬ 
cation and has spent fourteen years in the area of lan¬ 
guage and learning disabilities.They both live in Palo 
Alto, California. 


Avon Books are available at special quantity discounts for bulk pur¬ 
chases for sales promotions, premiums, fund raising or educational use. 
Special books, or book excerpts, can also be created to fit specific needs. 

For details write or telephone the office of the Director of Special Mar¬ 
kets, Avon Books, Dept. FP, 1790 Broadway, New York, New York 
10019, 212-399-1357. 






] C O M P U T E R I 


MARGARET ANN ZUANICH 
AND SUSAN DRAKE UPSCOMB 


AN AVON 




CAMELOT BOOK 







5th grade reading level has been determined by using the Fry 
Readability Scale. 

BASIC FUN WITH GRAPHICS: THE ATARI ® COMPUTER 
WAY is an original publication of Avon Books. This work has 
never before appeared in book form. 

This book is published by Avon Books which is not affiliated with 
Atari, Inc. and Atari is not responsible for any inaccuracies. 

ATARI is a registered trademark of Atari, Inc. and 800 is a 
trademark of Atari, Inc. 


AVON BOOKS 

A division of 

The Hearst Corporation 

1790 Broadway 

New York, New York 10019 

Copyright © 1983 by Margaret Ann Zuanich and Susan Drake 
Lipscomb 

Cover photograph by Aram Gesar 
Published by arrangement with the authors 
Library of Congress Catalog Card Number: 83-15528 
ISBN: 0-380-85050-8 

All rights reserved, which includes the right to 
reproduce this book or portions thereof in any form 
whatsoever except as provided by the U. S. Copyright Law. 
For information address Avon Books. 

Library of Congress Cataloging in Publication Data 
Zuanich, Margaret Ann. 

Basic fun with graphics, the Atari computer way. 

{An Avon/Camelot book) 

Summary: Instructions for graphics programming on an 
Atari computer using BASIC. 

1. Computer graphics—Juvenil literature. 

2. Atari computer—Programming—Juvenile literature. 

[1. Computer graphics. 2. Programming (Computers) 

3. Atari computer—Programming. 4. Basic {Computer 
programming language)] I. Lipscomb, Susan Drake. 

II. Title 

T385.Z8 1983 001.55’3 83-15528 

ISBN 0-380-85050-8 

First Camelot Printing, November, 1983 

CAMELOT TRADEMARK REG. U. S. PAT. OFF. AND IN 
OTHER COUNTRIES, MARCA REGISTRADA, HECHO EN 
U. S. A. 


Printed in the U. S. A. 

DON 10 987654321 



TflBL€ OF CONTENTS 


Introduction 7 

How to use BASIC Fun With Graphics: 
The Atari Way 9 

1 PRINT: 11 

1. Warmups 12 

2. House 14 

3. Ocean Liner 16 

4. Space Fleet 17 

5. Bugs 19 

6. Rocket Ship 21 

7. Bicycle 24 

2 POSITION 25 

1. Warmups 26 

2. Face 28 

3. Christmas Tree 30 

4. Candy Jar 32 

5. Tower 34 

6. Grove 35 

7. Hide-and-Seek 36 

3 PLOT and DRAWTO 39 

1. Warmups 40 

2. Christmas Lights 45 

3. Jet Plane 47 

4. House 48 

5. Flag 49 

6. 3-D Room 51 

7. Train 52 

8. Skier 53 


TABLE OF CONTENTS • 5 




4 GRAPHICS MODES, COLOR, 

and SETCOLOR 55 

1. Warmups 56 

2. Fish 76 

3. Car 77 

4. Fishing Boat 79 

5. Windmill 81 

6. Snowflakes 83 

7. Sailboat 85 

8. Campground 87 

9. Picture 89 

5 ANIMATION 93 

1. Warmups 94 

2. Walking Figure 98 

3. Flying Bird 100 

4. Jumping Fish 102 

5. Helicopter 104 

6 FUN WITH GEOMETRY 107 

1. Warmups 108 

2. Apple Tree Harvest 115 

3. Leaping Fish 118 

4. Bird and Flower 120 

5. Fancy Graphics 123 

Glossary 125 


6 • BASIC FUN WITH GRAPHICS: THE ATARI WAY 



INTRODUCTION 


Are you ready for the fun and challenge of graphics pro¬ 
gramming? Do you want to use your computer to create your 
own pictures and designs, move objects around on the screen, 
or design your own video game? BASIC Fun With Graphics: 
The Atari Way gets you started, using the graphics program¬ 
ming statements on your computer. Each chapter includes ex¬ 
ercises that show how the graphics statements work and simple 
BASIC programs that demonstrate exciting and fun ways to 
use these statements. 

BASIC Fun With Graphics: The Atari Way presents a sys¬ 
tematic yet entertaining approach to learning graphics pro¬ 
gramming. First you type in the exercises and programs 
exactly as they appear in the book. Then you experiment 
and change them, using your own ideas. Finally, you create 
your own designs and pictures, using those in the book as a 
guide. 

BASIC Fun With Graphics: The Atari Way covers the begin¬ 
ning and intermediate graphics statements available in Atari 
Basic, as well as a chapter for “hotshots” that uses higher-level 
mathematical functions to create geometric figures and gener¬ 
ate new and unique designs. It stops short of commands that 
directly address memory, like PEEK and POKE statements, 
and shape tables used in sophisticated graphics and animation. 
When you’re ready for this level of programming, your com¬ 
puter’s BASIC reference guide has a comprehensive discus¬ 
sion of how to proceed. 

BASIC Fun With Graphics: The Atari Way is written in 
BASIC for the Atari 400 or 800 equipped with a BASIC car¬ 
tridge. The programs will run on either a color or monochrome 
monitor. For visual appeal, SETCOLOR statements are in¬ 
cluded in many of the programs. To run on a monochrome or 
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black and white display, omit the SETCOLOR statements, but 
not the COLOR statements, from the program. 

We found that experimenting with the graphics statements 
and creating designs and pictures on the screen was great fun. 
We hope you get as many “oohs,” “aaahs,” and chuckles as 
we have. 
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HOW TO US€ 

BASIC FUN WITH GRAPHICS 


1. Start up your Atari with the BASIC cartridge in it. 

2. Type in each program line by line, including the line 
numbers, exactly as shown in the Program Listing. Press the 
RETURN key after each line. 

3. Once you have a program entered onto your computer, 
type RUN and press Return. The computer will Run your pro¬ 
gram and display the results on the sceen. It should look like 
the example in the book. 

4. To check the programming statements, press RESET, 
type LIST and press Return. The computer will list your pro¬ 
gram. 

5. Now try making the changes suggested in the text, or ex¬ 
periment with others, using ours as a guide. 

6. When you’re ready to save your program, use the SAVE 
or CSAVE command. To retrieve a program from the disk or 
cassette, use the LOAD or CLOAD command. 

7. Before you enter another program, type NEW to erase 
anything currently in memory. 

8. The Warmup exercises at the beginning of most chapters 
contain directions and examples using each graphics state¬ 
ment. Read these and work through the exercises before you 
proceed to the programs. 

9. The pictures used as examples in this book were drawn 
using the screen display as a guide. The actual display on your 
screen may vary slightly from these examples. 

10. If you have difficulties making a program work, check 
your program, line by line, against the listing in the book. All 
the programs and exercises were tested on an Atari 400 and an 
Atari 800. 
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PRINT 


Use this program statement to tell the computer 
what to print on the screen or paper. 

PROGRAMS 

1. Warmups 

2. House 

3. Ocean Liner 

4. Space Fleet 

5. Bugs 

6. Rocket Ship 

7. Bicycle 




UURRMUPS 


The format for the PRINT programming statement is: 

PRINT " " or PR. " " or ? " 

You can use any combination of letters, numbers, and special char¬ 
acters in a PRINT statement. 

Your computer has nine display modes: 3 text modes and 6 graph¬ 
ics modes. This chapter shows you how to use the GRAPHICS 0 text 
mode to draw shapes and objects. 

In GRAPHICS 0, you have 24 rows and 40 columns. The rows are 
numbered from top to bottom, the columns from left to right, on your 
screen. If you think of your screen as a piece of graph paper, then the 
top left square is 0,0 and the bottom right square is 39,23. The Atari 
default margin in GRAPHICS 0 is 2,1 (column 2, row 1), where 
“READY” appears. 



The graphics mode statement sets the display type. The format is: 
GRAPHICS N or GR. N 

where N is a number that determines the display type, as fol¬ 
lows: 
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Type 

Mode 

Rows 

Columns 

Full Rows 

Text 

Window 

0 

Text 

24 

40 

24 

No 

1 

Text 

20 

20 

24 

Yes 

2 

Text 

10 

20 

12 

Yes 

3 

Graphics 

20 

40 

24 

Yes 

4 

Graphics 

40 

80 

48 

Yes 

5 

Graphics 

40 

80 

48 

Yes 

6 

Graphics 

80 

160 

96 

Yes 

7 

Graphics 

80 

160 

96 

Yes 

8 

Graphics 

160 

320 

192 

Yes 


The GRAPHICS statement can be abbreviated when you are typ¬ 
ing to GR. N. GRAPHICS can be used either in a program or in im¬ 
mediate mode. 

If you want to use the full screen in modes 1 through 8, thereby 
eliminating the text window, add 16 to the GRAPHICS N statement. 
Then make the last statement of your program a continuous loop, so 
you have to BREAK the program to end it. For example: 

100 GRAPHICS 3 + 16 
999 GOTO 999 

These two statements will allow you to use 24 rows and 40 col¬ 
umns for your graphic commands in graphics mode 3. 

Atari’s graphic modes will be discussed in greater detail in Chap¬ 
ter 4. 
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HOUS6 


Use PRINT to draw a house. Put this program in your computer by 
typing each line exactly as shown in the Program Listing. 

Once you have this program up and running, try adding a chimney 
by using the Atari’s edit keys ( t , i INS, DEL). 

/ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 


/ .. . \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 

I l”l I.I I I 

I I __ I 

I _ I I_I I 

III I I 

III I_ I 


PROGRAM LISTING 


110 PRINT " 

120 PRINT " 

130 PRINT " / 

140 PRINT " / 
150 PRINT "I I 
160 PRINT "I 
170 PRINT "I 
180 PRINT "I 
190 PRINT "I_ 


/ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ " 

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ " 
\\\\\\\\\\\\\\\" 

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ' 


I II I I" 

I . I" 

I I _ I I' ! 

i” i i it 

II _I _ ... I" 


NOTES 


Line 100: GRAPHICS 0 puts the program run in graphics mode 0. 
Lines 110-190: When the program runs, the PRINT statement tells 
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the computer to print out everything between the two * marks on 
each line exactly as it is shown in the program. 
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OC6AN LIN€R 


Draw an ocean liner with this program. 

Now add some portholes or another deck to make your own ship. 


.. I I_ 

__ I .I_ 1 _ 

i*_ II_i__ 

\ 0 0 0 0 / 

PROGRAM LISTING 

100 GRAPHICS 0 
110 PRINT " 

120 PRINT " 

130 PRINT " 

140 PRINT " 

150 PRINT "\ 0 
160 PRINT " \ 
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_ SPRC€ FL€€T 

Create a fleet of different kinds of spacecraft. 

# ' 


/ \ 
\ / 


I I 
I I 
t I 

/\ 

@@@@ 
/######\ 
i **•**••*#•*•*• i 

PROGRAM LISTING 

100 GRAPHICS 0 
110 PRINT " 

120 PRINT " 

130 PRINT “ _ " 

140 PRINT " 

150 PRINT " 

160 PRINT " 

170 PRINT 11 
ISO PRINT " 

190 PRINT ” II" 



I I 
I I 

/ \ 
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200 

PRINT 

II 

1 1 " 


210 

PRINT 

II 

/ \" 


^ ^ c> 

PRINT 

II 


/ \ " 

230 

PRINT 

II 


II" 

240 

PRINT 

II 


1 1 " 

250 

PRINT 

II 


/ 1 " 

260 

PRINT 

II 


/ \ " 

270 

PRINT 

l> 


Id |d|d|d " 

2 SO 

PRINT 

II 


/######\ ' 

290 

PRINT 

II 


| *■*#•■**•**••* | 

300 

PRINT 

II 

\ 

1 1 


NOTE 


You can use any of the special characters on the keyboard in a 
PRINT statement. Experiment with these characters and make some 
of your own spaceships. 
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M f -J 


BUGS 


Here is a swarm of bugs. 

Can you come up with some species of your own? 


~f- 

\ < ) / 

/ ( ) \ 

/ \ 

il i! 

' / \ ( ) / \ 

\ / \ / 

V V 

\ / 

( 77 ) 

/ / / \ \ \ 

©######## 
i i i 11 111 


PROGRAM LISTING 

100 GRAPHICS 0 

120 PRINT " \/" 

130 PRINT " ..) 

140 PRINT " /V 

150 PRINT " 

160 PRINT " 

170 PRINT " 

130 PRINT " -i-" 

190 PRINT ” \( )/" 

00 PRINT " /<_.)\" 

10 PRINT " / \" 
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225 PRINT 
230 PRINT 
240 PRINT 
250 PRINT 
260 PRINT 
270 PRINT 
280 PRINT 
290 PRINT 
300 PRINT 


\_ /" 

< . . > " 
///\\\" 


tl II II 


/ \ ( ) / X 

\ / \ / 


©########" 
I I I I I I 1 I 
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ROCK6T SHIP 

This rocket is drawn by the computer and then blasts off the screen, 
leaving a trail of fire. 

You can do the same thing with your own spaceships. 



T 

H 

E 

E 

N 

D 
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PROGRAM LISTING 


100 

GRAPHICS 0 





1.10 

WIDTH 80 





;L 20 

PRINT 



1 H 



i 30 

PRINT 



f “ 



140 

PRINT * 



1 H 



150 

PRINT ' 


/ 

\ 

" 


160 

PRINT ' 


/ 


V 


170 

PRINT * 


i 1 

imi 

1 

1" 

ISO 

PRINT 1 


1 


I " 


190 

PRINT ' 


/ 


\ 

/ \ 

200 

PRINT 1 


/ 


\ 

***" 

210 

PRINT ’ 


t II 

ini 

1 i 

*" 

220 

PRINT ' 






230 

PRINT * 


1 




240 

PRINT ' 


\ 


i 

1" 

250 

PRINT ' 


\ 

F 

1 

/ \" 

260 

PRINT ' 


1 

L 

f 


270 

PRINT * 


1 

E 



280 

PRINT 


1 

T 

1 


290 

PRINT 


1 

C 

1 


300 

PRINT 


1 

H 



310 

PRINT 


1 




320 

PRINT 


1 




330 

PRINT 


/ 


V 


340 

PRINT 


/ 


V 


350 

PRINT 

/ 



V 


360 

PRINT 

/ 



V* 


370 

PRINT 

/#*****#***•»**#*\ " 


380 

PRINT 

* 

* * 

* * 

* # *" 


390 

PRINT 

* 

* # 

* * 

* * # M 


400 

PRINT 

* 

* 

* * 

* *•’ 


410 

PRINT 


* * 

* 

* * *" 


420 

PRINT ' 

* 

* 

* * 

* #" 


430 

PRINT 1 


# * 

* 

*" 


440 

PRINT 


* 

* * 

" 


450 

PRINT 


* 

#" 



,460 

PRINT * 


* 




470 

PRINT * 


# 

» 



480 

PRINT ' 






490 

PRlMT 



*" 



500 

PRINT 1 



#" . 



510 

PRINT 1 






520 

PRINT 






530 

PRINT 


* 

11 



540 

PRINT ' 


*•' 




350 

PRINT 


T" 




560 

PRINT 


H" 




570 

PRINT 1 


E" 




580 

PRINT ‘ 


" 




590 

PRINT 


E" 




600 

PRINT 


N" 




610 

PRINT 


D" 




620 

FOR X«J 

TO 

40 




630 

PRINT 







640 NEXT X 
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NOTE 


Lines 620-640: This is a FOR . . . NEXT loop, which allows you to 
repeat part of your program as many times as you want. The FOR 
statement begins the loop and the NEXT statement ends it. In this 
program, it repeats Line 630, which PRINTs a blank line, 40 times, 
making the rocket move up the screen so it appears to blast off. 
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6ICVCL6 


Now you can create a ten-speed bicycle. 

Can you design a racer or dirt bike of your own? 



PROGRAM LISTING 

100 GRAPHICS 0 


110 PRINT " I.- 

.120 PRINT " \ 

130 PRINT " 

140 PRINT " 

150 PRINT " - I 
160 PRINT I 

170 PRINT "_+ 

ISO PRINT I 

190 PRINT " _ I 
200 PRINT " -_I 


_+ S<" 

I 

1/ ~_H- 

(X) _ ==I 
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POSITION 


The POSITION statement tells the computer in 
which column and row to locate the cursor. 

PROGRAMS 

1. Warmups 

2. Face 

3. Christmas Tree 

4. Candy Jar 

5. Tower 

6. Grove 

7. Hide-and-Seek 





WRRMUPS 


The format of the POSITION statement is: 

POSITION column, row where 
column is column position, 0 through 39 in GRAPHICS 0 
row is row position, 0 through 23 in GRAPHICS 0 

The values used in the POSITION statement vary with the screen 
format of each graphic mode for the Atari. The cursor doesn’t actu¬ 
ally move until a command which involves the screen is used. If you 
specify coordinates outside the available format for the mode you’ve 
selected, you will get an Error Message that says ERROR 141 (cursor 
out of range for particular mode) for the line following your POSI¬ 
TION statement which uses the screen, when you try to run your pro¬ 
gram. 

EXERCISE 1 

Use POSITION to put a character at various locations on your screen. 

10 GRAPHICS 0 
20 POSITION 19,12 
30 PRINT 


•* 

This exercise puts an * at location column 19, row 12. Try placing 
the * at other locations on the screen. 


EXERCISE 2 

Use the POSITION statement to center text. 

10 GRAPHICS 0 
20 POSITION 9,11 
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30 PRINT "THIS SHOULD BE CENTERED" 

40 POSITION 12,12 

50 PRINT "IN 40 COLUMN TEXT" 

60 PRINT "IN 40 COLUMN TEXT" 

THIS SHOULD BE CENTERED 
IN 40 COLUMN TEXT 


POSITION 9,11 locates the cursor on column 9, row 11 when the 
program executes the following PRINT statement. POSITION 12,12 
puts it on column 12, row 12 for the next PRINT statement. 
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FFice 


Draw a girl’s face and then add features. You can change her ex¬ 
pression by altering Lines 210, 230, and 270. 


0 O I 


PROGRAM LISTING 


1 i) 0 

GRAPHICS 

0 


11 0 

PRINT " 

/// 

//\\" 

12 0 

PRINT " 

I ! 

1 1 

:l 3 0 

PRINT " 

i ! 

1 1 

1 4 0 

PRINT " 

1 1 

1 i 

:l 5 0 

PRINT " 

1 1 

1 1 

160 

PRINT " 

1 1 

i 1 

17 0 

PRINT " 

1 1 

1 1 

18 0 

PRINT " 

1 IN. 

1 1 

19 0 

PRINT " 

i 1 

1 1 

20 0 

POSITION 

9,2 


210 

PRINT " A 

A «» 


22 0 

POSITION 

9,3 


23 0 

PRINT “0 

0" 


2-10 

POSITION 

10,5 


25 0 

PRINT " A " 



26 0 

POSITION 

10,6 


27 0 

PRINT 



280 

POSITION 

1 ,15 
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NOTES 


Line 100: GRAPHICS 0 tells the computer to start the program run 
in graphics mode 0. 

Lines 200, 220, 240, 260: POSITION tells the computer to put the 
cursor at the column, row position you want. This statement must 
correspond to the parameters of your screen mode (0-39 columns by 
0-23 rows in GRAPHICS 0). Otherwise you will get an Error Mes¬ 
sage, ERROR 141, which means the cursor is out of range for a par¬ 
ticular mode, when you try to run your program. 

The default margin in GRAPHICS 0 is in column 2, row 1. You 
may need to take this into account when you set your position coordi¬ 
nates. 

Line 280: POSITION 1,15 puts the cursor below the bottom of the 
picture, at row 15. Otherwise, the “Ready” prompt and cursor ap¬ 
pear immediately below the last line printed, in this case the mouth. 
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CHRISTMRS TR€€ 


Draw a Christmas tree, then go back and decorate it. 
Add ornaments of your own to the program. 


* 

/ \ 



/ 

\ 


/ ! 

\ 


/ 

\ 


/ 

\ 


/ * 

* \ 


/ 

\ 

/ 


\ 

/ 

! 0 @ 

@ ! \ 

/ 



\ 

PROGRAM LI 

ST 

ING 

:L o o 

GRAPHICS 

0 

it) 5 

PRINT 


1 0 6 

PRINT 


no 

PRINT " 

/ 

:l 2 o 

PRINT " 

/ 

130 

PRINT " 

/ 

/ 

140 

PRINT " 

/ 

/ 

15 0 

PRINT " 

/ 

160 

PRINT " 

/ 

170 

PRINT " 

/ 

ISO 

PRINT " 

/ 

190 

PRINT " 

/ 

200 

PRINT " 

/ 

210 

PRINT " 


220 

POSITION 

20,13 

230 

PRINT 

" i 

1 " 


\" 

\" 

\" 

\" 

\ 


\" 

\" 

\" 

\ 
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240 POSITION 20,14 
250 PRINT "| |" 

260 REM *** DECORATE TREE 

270 GOSUB 400 

280 POSITION 21,1 

290 PRINT 

300 GOSUB 400 

310 POSITION 21,4 

320 PRINT " ! “ 

330 GOSUB 400 
340 POSITION 18,7 
350 PRINT "* *" 

360 GOSUB 400 

370 POSITION 15,10 

380 PRINT " ! 0? @ § ! " 

390 GOTO 430 

40 0 F r OR W - -l TO 40 0 

410 NEXT W 

420 RETURN 

425 POSITION 1,20 

430 END 


NOTES 


Line 270: GOSUB tells the computer to leave the program and go to 
a subroutine, in this case Line 400. 

Line 390: GOTO tells the computer to go to a designated line num¬ 
ber, in this case Line 430. 

Lines 400-420: Subroutines are small programs within a larger pro¬ 
gram that are used over and over. When the subroutine is finished, a 
RETURN statement tells the computer to go back to where it came 
from in the main program. Here the subroutine is a Wait Loop, which 
simply makes the computer pause before it continues to decorate the 
tree. 

Line 430: The END statement tells the computer that it is the last line 
in the program. It stops the Run. 
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CflNDV JfiR 


This program draws a candy jar and fills it with jelly beans. 
Design your own container and fill it with marbles. 


1 1 

I I 

I t 

1 1 


{ oooooo 
! OOOOOO 
} OOOOOO 
i OOOOOO 


PROGRAM LISTING 

100 GRAPHICS 0 
110 POSITION 2,7 

120 PRINT " _" 

130 PRINT " | |" 

140 PRINT ” | |" 

ISO PRINT " / \" 

160 PRINT " | I" 

170 PRINT " | |" 

ISO PRINT " 1 |" 

190 PRINT " 1 1" 

20 0 PRINT " |___1" 

210 FOR Y ” 14 TO 11 STEP -1 
220 FOR X~7 TO 12 
230 POSITION X,Y 
240 PRINT "0" 

250 NEXT X 

260 GOSUE 290 

270 NEXT Y 

280 GOTO 320 

290 FOR T=1 TO 200 
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300 NEXT T 
310 RETURN 
320 POSITION 1*20 
330 END 


NOTE 


Lines 210-270: These lines form two nested FOR . . . NEXT loops, 
to fill the jar from the bottom up. The Y loop sets the rows and the 
X loop sets the columns to print “0”. 

Line 210: The loop of lines is incremented by the number in the 
STEP statement, in this case-1, so the program counts backwards 
from 14 to 11. If there is no STEP statement, the loop is incremented 
by one’s. 
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TOUU6R 


Build a tower, using one of Atari’s special ATASCII characters. 
Can you change the program to build a pyramid, using a different 
character? 


PROGRAM LISTING 

100 GRAPHICS 0 

110 FOR J~2G TO 10 STEP -1 

120 FOR I“19 TO 21 

130 POSITION I t 0 

140 PRINT CHR$(21 )? 

150 NEXT I 
160 NEXT J 
170 POSITION 1,1 

NOTE 

Line 140: CHR$(21) means the ATASCII character numbered 21. 
On the Atari this character is a ■. 
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GROV6 


“Grove” draws identical trees in evenly spaced columns and rows 
on your screen. 

Can you change the orchard pattern or design of the trees? 

<£> <2> <§><8*8>4> 

<xs> < 2 > & QQQ 
<2> <2><S> 

PROGRAM LISTING 

100 GRAPHICS 0 

110 I- OR J~5 1C 10 STEP 2 

1 0 r 0 K I1 0 ID jL 0 S I El P 

13 0 POSITION I» J 

140 PRINT CHRit (16 ) j 

150 NEXT I 

160 NEXT J 

170 POSITION 1,20 


POSITION • 35 



HID€-fiND-S€€K 


Here’s a hide-and-seek game you play with the computer. Guess 
which tree X is hiding behind and the computer will show you if 
you’re right. 

/ 1 \ 

-I- / 2 \ 

- I -X 

/ 4 \ 

/ 3 \ -I- 

- I - 


-1 - 

WHERE IS X HIDING? 

BEHIND TREE 1,2,3,4 OR 5? 4 
SORRY ... BEHIND TREE 2 ! 

YOU'RE STILL 'IT”! 

WANT TO PLAY AGAIN <Y OR N>? N 

PROGRAM LISTING 

100 DIM Nit (3) 

110 GRAPHICS 0 
12 0 A=IN T (R N D < 1 > * 5+1) 

130 FOR L=1 TO 5 
1 4 0 X = IN T (R N D (1) >k 2 0 + 1 0 > 

150 Y“INK RND ( 1 ) *15+1 ) 

190 POSITION X,Y 
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190 PRINT " A " 

20 0 POSITION X , (Y +1) 

210 PRINT "/" ;L}"\" 

220 POSITION X , < Y+2) 

230 PRINT "-I-" 

2T0 IF A=L. THEN 27 0 
25 0 NEXT L. 

260 GOTO 290 

270 X1~X«Y1“Y 

280 GOTO 250 

290 POSITION 2,18 

300 PRINT "WHERE IS X HIDING?" 

310 PRINT "BEHIND TREE 1,2,3,4 OR 5?" 

320 INPUT N 

330 IF N : =A THEN 370 

3-10 PRINT "SORRY, .♦ BEHIND TREE" J A f " ! " 

350 PRINT "YOU'RE STILL 'IT'!" 

360 GOTO 380 

370 PRINT "YOU'RE RIGHT!!!" 

380 PRINT "THERE HE IS!" 

390 X1~(X1+2)iYl"<Yl+l) 

TOO POSITION XI,Y1 
T10 PRINT "X" 

T20 POSITION 2,22 

T30 PRINT "WANT TO PLAY AGAIN (Y OR N) ? " i 
TT0 INPUT N$ 

T50 IF N$="Y" THEN 110 
460 END 

NOTES 

Line 100: String variables on the Atari must be dimensioned. DIM 
N$(3) saves three spaces for N$. 

Lines 120, 140, 150: RND(l) or RND is a random-number function, 
which generates random numbers from 0 to .9999. INT is an integer 
function, which changes decimal numbers to whole numbers by 
dropping the fractional part of the number. The statement A = INT 
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(RND(l) *5+1) telis the computer, “Let A be a random number be¬ 
tween 1 and 5.” 

Lines 320, 440: The INPUT programming statement allows you to 
enter different numbers or words into your program each time it runs. 

Lines 330, 450: The IF . . . THEN programming statement makes 
the computer decide which line number to execute next. IF the condi¬ 
tion is true, THEN the program goes to the line number indicated. 
Otherwise it goes to the following line number. 
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PLOT and 
DRRUJTO 


The PLOT and DRAWTO graphics commands 
are used to draw a point or a line on the screen or 
paper. 

PROGRAMS 

1. Warmups 

2. Christmas Lights 

3. Jet Plane 

4. House 

5. Flag 

6. 3-D Room 

7. Train 

8. Skier 





UUnRMUPS 


Now you are ready to explore the graphics capabilities of your com¬ 
puter. The programs and exercises included in this chapter use the 
GRAPHICS 8 mode. This mode uses a grid of 310 columns across 
and 160 rows down, with a four-line text window at the bottom of the 
screen. If you think of the screen as an X,Y axis, then X corresponds to 
the columns and Y to the rows. The top left point on the screen is (0,0) 
the bottom right is (319,159). X increases as you move to the right 
across the screen, and Y increases as you move down. 

GRAPHICS 8 Mode 



The statement GRAPHICS 8 puts your computer into this resolu¬ 
tion mode. Once you type this in, you will stay in GRAPHICS 8 until 
you press RESET or type in another GRAPHICS statement. 

When BASIC is first powered up, all the color data is 0. Thus, 
when graphics statements are executed, nothing seems to happen. 
Correct this by typing COLOR 1 and hitting RETURN. 

To examine your program listing, hit RESET or type GR. 0 to get 
back to a full-screen text mode. Then type LIST. 
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PLOT 


The PLOT graphics statement plots a point on the screen. The for¬ 
mat for the statement is: 

PLOT XI,Y1 or PL. XI,Y1 where: 

XI,Y1 are the X,Y coordinates of the point on the graphics 
screen. 

You can abbreviate PLOT when typing to PL. 

PLOT is most frequently used to determine the point on the screen 
where a shape begins. Then DRAWTO is used to draw the shape. 


DRAWTO 

The DRAWTO graphics statement draws a line on the screen. The 
format for the statement is: 

DRAWTO XI,Y1 or DR. XI,Y1 where: 

XI,Y1 are the X,Y coordinates of the ending points of the line. 
This uses the last point drawn as the starting point and XI,Y1 as 
the ending point. 

DRAWTO is used in all modes on the Atari, and can be abbrevia¬ 
ted when typing as DR. X1,Y1. 


EXERCISE 1 

Use PLOT to place a point in the middle of the screen. 

GRAPHICS 0 
COLOR 1 

SETCOLOR 1,1,14 
PLOT 160,30 
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This example uses COLOR 1. If no COLOR is specified when 
you start up the system with BASIC, COLOR is 0, the color of the 
background, and appears invisible. Set COLOR 1,1,14 makes the 
point as bright as possible against the background. These state¬ 
ments are explained in detail in Chapter 4. 

Now erase this point, using COLOR 0. 

COLOR O 
PLOT 160,80 



EXERCISE 2 

Draw a line, using PLOT. 
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3 


10 GRAPHICS 
20 COLOR 1 
30 SETCOLOR 1,1,14 
40 FOR X=10 TO 50 
50 PLOT X,50 
60 NEXT X 


Notice that you can use a numeric variable as the X or Y coordi¬ 
nate in PLOT. 


EXERCISE 3 

Use the PLOT and DRAWTO statement to draw a line on the 
screen. 

NEW 

GRAPHICS S 
COLOR 1 

SETCOLOR 1,1,14 
PLOT 140,100 
DRAWTO 180,140 



Now draw a line from the end of the first line to (220,100). 
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DRAWTO 



The DRAWTO statement uses the last point drawn on the screen 
as the starting point. 
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CHRISTMRS LIGHTS 


Use this program to draw a small Christmas tree and put on some 
lights. 

Add some more lights to the tree once you get this program up and 
running. 


PROGRAM LISTING 

100 GRAPHICS 8 


1 

•t 

.i. 

0 

PLOT 

C ft 

K.J V.* 


1 

0 U 

S DRAT 

-v n « •"> r:; r r 

i U .L X- O f W vJ 

;[ 


r, 

DR AWT 

0 

1 

& 

0 t 

10 0 


1 

o 

0 

PLOT 

8 0 


1 

0 c 

3 DRAW 

TO 118*100 

i 

JX 

1 

o 

DRAW i 

0 

1 

i 

t 

12 0 


1 


0 

DRAW I 

0 

•t 


8 t 

12 0 


1 

£} 

0 

DR AWT 

0 

1 

jL. 

8 ? 

10 0 


1 

/ 

f> 

DRAW I 

0 

1 

6 

0 f 

1 0 0 


l 

O 

0 

PLOT 

12 

0 

t 

8 0 




190 PLOT 110,90 
20 0 PLOT .1 '10,90 
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NOTES 


Line 100: GRAPHICS 8 puts the computer into graphics mode 8. 

Line 105: COLOR 1 makes the graphics points visible in GR. 8. 
SETCOLOR 1,1.14 makes them as bright as possible against the 
background. These statements are explained in detail in the following 
chapter. 

Line 110: The PLOT statement draws a point at (80,100). 
DRAWTO draws a line from there to 123,55. 

Line 120: This DRAWTO statement continues from the last point 
drawn to 160,100. 

Line 180: PLOT puts a point at 120,80. 
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J€T PLRN€ 


The computer can draw a jet liner with this program. 
Can you improve upon the design? 



PROGRAM LISTING 

:L 0 0 G R A P HIC S 8 i C 0 L C) R 1 i S E T C G L G K 1, 1 , 1 4 

110 P L 01 8 0 , 1 0 0 5 D R A W T 0 2 4 0 , :L (5 0 

120 DRAWTO 260,115 

130 DR A WTO 2 0 0,1:1.5 

140 DRAWTO 150,150 

150 DRAWTO 170,115 

160 DRAWTO 90,115 

170 DRAWTO 70,90 

180 DRAWTO 100,100 

190 PLOT 175,100:DRAWTO 200,75 

200 DRAWTO 210,100 


NOTE 

Lines 120-180: Notice that these DRAWTO statements all use the 
prior point as the starting point. 
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HOUS€ 


Here is a small house. See if you can add windows or a chimney. 



PROGRAM LISTING 

1 0 0 GRAPHICS 8 : COLOR 1 J SETCOLQR 1,1 ,1 -1 
no PLOT SO , 1 0 0 i DR AO TO 160,100 

12 0 D R A k> T 0 16 0 , 110 $ D E A M T 0 SO, 1 4 0 

13 0 DR A WTO 8 0,J. 0 0 5 DRAWTO 12 0,8 0 
140 DRAWTO 160,100 

150 PLOT 110,1 :L8 i DR A WTO 130,118 
160 PLOT 110,118i0 RAWTO 110,140 
170 PLOT .130,118 i DR A WTO 130,140 
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FLAG 


This program draws a flag with 66 stars and 13 stripes. 
Can you change it to draw the America flag? 



PROGRAM LISTING 


100 

GRAP! 

•nos 

8 l COLOR 1 



l 0 5 

SETCOLDR 

1,1,14 



!. 1 0' 

PLOT 

100 

,100:DRAWTO 

2 4 0 

? J. 0 0 

1:1.5 

DRAW 

fO 2 

40,157 



117 

D R A W T 0 1 0 0,157 J D R A W T 0 10 0,10 i) 

1.20 

PLOT 

160 

, 100 $ DRAW 7O 

160 

, .1.21 

125 

DRAWTO 100,121 



130 

PLOT 

16 0 

,100?DRAWTO 

240 

,100 

135 

PLOT 

16 0 

,103 JDRAWTO 

24 0 

,103 

140 

PLOT 

16 0 

,10 9JDRAWTO 

2 4 0 

,109 

.145 

PLOT 

160 

,112;DRAWTO 

24 0 

, 112 

150 

PLOT 

16 0 

, 1.18J DRAWTO 

240 

, 118 

155 

PLOT 

.16 0 

,121:DRAWTO 

24 0 

, 121 

160 

PLOT 

100 

,127JDRAWTO 

240 

, 127 

16 5 

PLOT 

100 

,130 JDRAWTO 

2 4 0 

, 13 0 

17 0 

PLOT 

1 0 0 

,136JDRAWTO 

240 

, .1.3 6 

175 

PLOT 

1 0 0 

,139 t DRAWTO 

240 

,139 

13 0 

PLOT 

100 

,145 t DRAWTO 

24 0 

, 145 

185 

PLOT 

100 

,148?DRAWTO 

240 

, 148 
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19 0 PLOT 100,1S4!DRAWTO 240,154 
195 PLOT 100,157!DRAWTO 240,157 
200 Y=0 

210 FOR X5 TO 55 STEP 5 
220 PLOT 100 +X, 103+Y 
230 NEXT X 
240 Y-Y+3 

250 IF Y>18 THEN 270 
260 GOTO 210 
270 END 

NOTES 

Line 250: This IF . . . THEN statement tells the computer, IF the row 
is greater than 18, THEN go to LINE 270, the END of the program. 
Otherwise, go to the next line, which sends the program back to print 
another row of stars. 

Line 270: The END statement terminates the execution of the pro¬ 
gram and returns control to the user. 


\ 
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3-D ROOM 


The computer draws a 3-dimensional room with a door in the far 
wall. 

Change the program so the far wall seems even farther away. 



PROGRAM LISTING 

10 0 G R A P MIC S 3 J C 0 i... 0 R 1 5 E E T C 0 i... 0 R 1, 1, 14 

110 PLOT 30 * 10 0 5 DRAWTO 220*10 0*DRAWT0 220 * 109 

115 D R A W T 0 8 0 * 15 9 l D R A W T 0 8 0 * i 0 0 

120 PLOT 13 0 * 1225CRAWT0 170,122 

125 DRAWTO 17 0 * 1335DR,AHTO 130*138 

127 ORAWTO 130*120 

13 0 PL..Q T 80,100 5D R A WTO 130,122 

140 PL 0T 80 * 160 50RAWIO 130,138 

150 PLOT 220,100 5 DRAWTO 170 * 122 

160 P L 0T 220,160 50 RAWT 0 17 0,138 

170 PLOT 150,1275DRAWTO 160*127 

172 DRAWTO 160*138 

.17 5 D R A W T O 150,13 8 5 D R A W T 0 150,12 7 

ISO PLOT 153,133 
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TRAIN 


Here is a steam engine ready to chug down the tracks. 
Try designing a moden locomotive or a race car. 



PROGRAM LISTING 


:!. o o 

GRAPHIC 

v O 

s : ii 

i :!. o 

PLOT 0 

/.l 

l DR, 

:!. 2 0 

DRAWTO 

4 0 

•i / 

J .i. 

:i. 3 0 

DRAWTO 

6 (3 

f 1 ft 

1 4 0 

DRAWTO 

60 

f v J Q 

1 5 0 

DRAWTO 

<-• o 

* / 0 

1 6 0 

DRAW 1 0 

60 

y n 

* * u 

1 7 0 

DRAWTO 

60 

t 7 "Y 

18 0 

DRAWTO 

40 

,74 

:l ? o 

DRAWTO 

4 0 

,70 

2(3 0 

DRAWTO 

3 6 

,70 

21 0 

DRAWT0 

3 6 

, 7 4 

22 0 

DRAWTO 

20 

,74 

23 0 

DRAWTO 

2 0 

, 7 0 

24 0 

DRAWTO 

0 , 

7 0 

25 0 

DRAWTO 

O, 

4 6 
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SKI€R 


This skier is set to take off down the slopes. 

See if you can design a person on a sled to substitute for the skier. 



PROGRAM LISTING 

10 0 GRAPHICS 8«COLOR 1 1 SL1 COLOR 1 , 1 , 1 4 

10 2 REM *k*DRAW HEAD 

1 0 1 F' L.. 0 T 15 0,62 1 D R A W T 0 151,6 3 

106 DRAWTO 152,64 

10 3 DRA WT G 15 3,6 5 iD RAWT0 152,66 

.1.1.0 DR A WTO 15.1,67 

112 D RA WT0 150,685DRAWT0 14 9,67 

.114 DR A WTO 148,66 

116 DRA WT0 147,6510 RAW T0 14 8 ,64 

117 DRAWT0 149,63 

118 DRAWTO 150,62 

12 0 REM tfJtoxDRAW BODY 

125 PLOT 150,65JDRAWTO 150,78 

130 DRAWTO 145,100 

140 PLOT 150,78 

150 DRAWTO 155,100 

160 PLOT 150,68 

170 DRAWTO 146,68 

180 DRAWTO 143,75 


PLOT and DRAWTO • 53 




190 DRAWTO 135,70 
200 PLOT 136,68 
210 DRAWTO 125,100 
220 PLOT 150,68 
230 DRAWTO 154,68 
240 DRAWTO 157,75 
250 DRAWTO 165,70 
260 PLOT 166,68 
270 DRAWTO 155,100 
280 PLOT 140,96 
290 DRAWTO 157,110 
300 PLOT 150,96 
310 DRAWTO 167,110 
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GRAPHICS MODCS, 
COLOR, ond 
S6TCOLOR 


Different GRAPHICS, COLOR, and SETCOLOR 
statements produce unique shapes, colors, and pic¬ 
tures on your Atari screen. 

PROGRAMS 

1. Warmups 

2. Fish 

3. Car 

4. Fishing Boat 

5. Windmill 

6. Snowflakes 

7. Sailboat 

8. Campground 

9. Picture 





UURRMUPS 


The Atari has 128 possible color-luminance combinations with 
which to alter your screen display. Depending upon the graphics 
mode you select, not more than 5 colors can be displayed at any one 
time. Each graphics mode has its own set of default colors. In text 
modes GR. 0, 1, and 2, a different set of colors is enabled by the 
SETCOLOR statement. In graphics modes GR. 3 through GR. 8, 
the COLOR and SETCOLOR statements together set the color of the 
points to be plotted. 

No SETCOLOR statement is required in modes GR. 0 through 
GR. 8 if the default set of colors is used. However, COLOR is re¬ 
quired in modes GR. 3 through GR. 7 for any graphics statement to 
appear on the screen, as all the color data is set to 0 when BASIC is 
first powered up. 

In GR. 0, GR. 1, and GR. 2, Atari’s text modes, the COLOR state¬ 
ment determines the ATASCII character to be displayed by PLOT 
and DR A WTO statements. 

The format is: 

COLOR X or C. X where: 

X is the numeric variable for an ATASCII character stored in 
that location for that graphics mode. 

EXERCISE 1 

This program prints a row of hearts across the top of the screen. 
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pale blue-white characters 



10 GRAPHICS 0 
20 COLOR 0 

30 PLOT 2,1JDRAWTO 17,1 

40 POSITION 10,12 

50 PRINT "HOW DO YOU LIKE THIS?" 

In Line 20, COLOR 0 tells the computer to use the ATASCII char¬ 
acter with the value of 0 in GR. 0, a heart, for the following PLOT 
and DRAWTO statement. 

To get a row of $ characters, change Line 20: 

20 COLOR 36 


pale blue-white characters 



blue screen 
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Try other values in the COLOR statement. Your BASIC reference 
manual has a table of Atari’s internal character set and a charac¬ 
ter/color assignment chart for GR. 0, GR. 1 and GR. 2. 
Experiment by changing Line 10: 

10 GRAPHICS 1 



pale blue-white characters 

Watch the text window for these modes print at the bottom of the 
screen. Note how the size and shape of the characters change on the 
screen according to each screen mode’s dimensions. 

10 GRAPHICS 2 

gold characters 


black screen 


blue text window 


pale blue-white characters 
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10 GRAPHICS 0 



EXERCISE 2 

The SETCOLOR statement determines the colors you can use in 
GR. 0, GR. 1, and GR. 2. 

The format in GRAPHICS 0 is: 


SETCOLOR X, Y, Z or SE. X, Y, Z where: 

X is the color register: 

When X = 1, the statement affects the luminance of the 
characters that are the same color as the 
background. 

When X = 2, the statement affects the background. 
When X = 4, the statement affects the border. 


Y is a color variable from 0 to 15: 
0 - gray 

1 - gold 

2 - orange 

3 - red-orange 

4 - pink 

5 - purple-blue 

6 - red 

7 - blue 


8 - blue 

9 - light blue 

10 - turquoise 

11 - green-blue 

12 - green 

13 - yellow-green 

14 - orange-green 

15 - light orange 


Z is the luminance variable of the color, from 0 to 14 in even in¬ 
crements, where 0 is the dullest and 14 is the brightest. 
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Let’s add a background color of green to our previous program, 
Exercise 1, in GR. 0. 

15 SETCOLOR 2,12,8 



In Line 15 the SETCOLOR statement tells the computer to fill color 
register 2, which effects GR. 0 mode’s background, with color 12 
(green), with average luminance (8). 

Now make the characters as bright as possible to stand out against 
the background. Add: 


16 SETCOLOR 1,0,14 
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This SETCOLOR statement tells the computer to change the char¬ 
acter luminance in register 1 to the brightest, 14. The color used is 
automatically set to the background color, regardless of the color- 
variable value. 

Now add a border color of blue to your screen. 

17 SETCOLOR 4,8,8 


blue border 



Here SETCOLOR tells the computer to fill color register 4, the bor¬ 
der, in GRAPHICS 0, with blue (8), in average luminance (8). 

Finally, experiment with other background and border colors and 
luminances in GRAPHICS 0 by changing the color and luminance 
variables in Line 15 and Line 17. 

EXERCISE 3 

In GR. 1 and GR. 2, the COLOR statement functions in the same 
way as in GR. 0. However, the color registers of the SETCOLOR 
statement affect different parts of the screen than in GR. 0. 

In GR. 1 and GR. 2 the format is: 

SETCOLOR X, Y, Z or SE. X, Y, Z where: 
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X is the color register. 

When X = 0 the statement affects the color and lumi¬ 
nance of the characters on the graphics 
screen. 

When X = 2 the statement affects the color and lumi¬ 
nance of the background of the text window. 

When X = 4 the statement affects the color and lumi¬ 
nance of the graphic screen background and 
border. 

Y is the color variable 0 through 15. 

Z is the luminance variable 0 through 14, in even increments. 

Try this program, which prints an X of pink “fences” (the 
number sign). 



characters 


10 GRAPHICS 1 
20 COLOR 35 
30 SETCOLOR 0,4,14 
40 PLOT 2,2:DRAWTO 18,8 
50 PLOT 2,8:DRAWTO 18,2 
60 PRINT "HOW’S THAT?" 


In Line 20, COLOR 35 tells the computer to use the ATASCII 
character 35 ( # in GR. 1 and GR. 2) in the two following graphics 
statements, Lines 40 and 50. 

In Line 30, SETCOLOR 0,4,14 tells the computer to fill the color 
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register which displays the graphics screen characters, 0, with bright 
pink. 

To change the text window’s background and characters to green, 
add: 

35 SETCOLOR 2,12,14 



Now change the graphics screen background and border to blue. 

37 SETCOLOR 4,3,12 



To watch the dimensions of your characters change, alter Line 10. 
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10 GRAPHICS 2 



characters 

Take the time to experiment with color and luminance combina¬ 
tions you like by changing those variables in Lines 30, 35, and 37. 

EXERCISE 4 

In graphics modes 3 through 8, the values used in the COLOR 
statement affect the color variable in the SETCOLOR statement. In 
GR. 3, 5 and 7, COLOR 1 enables the color variable in the 
SETCOLOR statement. COLOR 2 and COLOR 3 alter the color re¬ 
sult and COLOR 0 makes the plotted points the same color as the 
background, so they appear invisible. 

In GR. 3, 5, and 7 the format is: 

COLOR X or C. X where: 

X enables the color variable of SETCOLOR. 

When X = 1 the color variable adheres to the color chart. 

When X = 2 the color is altered. 

When X = 3 the color is altered. 

When X = 0 the color is the same color as the back¬ 

ground. 
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GRAPHICS FROM CHAPTER 4 



$$$$$$$$ 



EXERCISE 2 from page 60 




EXERCISE 3 from page 63 





jJJ 

s 


EXERCISE 4 from page 68 
















EXERCISE 5 from page 69 




EXERCISE 5 from page 12 







EXERCISE 6 from page 75 







CAR from page 77 


Using COLOR 1 in GR. 3, 5, or 7 affects the SETCOLOR state¬ 
ment as follows: 

SETCOLOR X, Y, 

Z or SE. X, Y, Z where: 

X is the color register. 

When X - 0 

the graphics on the graphics screen are color 
Y, luminance Z. 

When X = 1 

the colors are altered. 

When X = 2 

the text window background and characters 
are color Y, luminance Z. 

When X = 3 

the default colors are used. 

When X = 4 

the graphics screen background and border 
are color Y, luminance Z. 


Our programs use COLOR 1 and SETCOLOR statements with a 
color register variable of 0, 2, or 4—altering graphics characters, text 
window or graphic screen and border background and luminance. 
This program demonstrates some of your color options: 



10 GRAPHICS 3 
20 COLOR 1 

30 PLOT 0 >10♦DRAWTQ 20,10 
40 PRINT "HOW'S THAT?" 
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A gold bar appears on the black graphics screen, with the print 
message in a blue text window. 

Change Line 20 and watch the results. 

20 COLOR 2 



Now the bar is green. 
20 COLOR 3 


pale blue-white 
characters 


blue text 
window 



black 

screen 


Now blue. 
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r-4 C 4 


20 COLOR 0 



Now it is invisible, as it is the background color. 

Make these changes to alter the bar’s color according to the Atari 
hue color chart. 


0 COLOR 1 
2 SETCOLOR 0,4,14 



SETCOLOR tells the computer to put bright pink into register 0, 
which displays the graphics statements in GR. 3, 5, and 7. The bar is 
pink. 
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Add this to change the background and character color in the text 
window to bright green. 

26 5ETCOLOR 2,12,14 



This SETCOLOR statement changes the graphics background and 
border to the color and luminance you specify, but also affects the 
hue of your graphics statements. 


7 SETCOLOR 4,3,14 



This makes the background and border blue, but also changes the 
bar to orange. 
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Now change the color and luminance variables in Lines 25, 26, 
and 27 to see what color combinations you prefer. 

Also change Line 10 to see how your graphics look in the dimen¬ 
sions of GR. 5 and GR. 7 modes. 

EXERCISE 5 

In graphics modes 4 and 6 the SETCOLOR statement affects the 
same screen parameters as in GR. 3, 5 and 7, but only functions with 
COLOR 1 or COLOR 0. COLOR 0 sets the graphics point to the 
background color, so the points seem invisible. COLOR 1 enables 
the points to be seen. 

The format in GR. 4 or GR. 6 is: 

COLOR X or C. X where: 

X enables color in the SETCOLOR statement. 

When X = 0 the graphic points are the same color as the 
background and appear invisible. 

When X = 1 the graphic points are visible. 

This program displays a box in GRAPHICS 4’s default colors. 



10 GRAPHICS 4 
20 COLOR 1 

3 0 PLOT 20,205DRAWTO 30,20 
40 DRAWTO 30,301DRAWTO 20,30 
50 DRAWTO 20,20 
60 PRINT "LIKE IT?" 
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The box is outlined in orange on a black graphics screen back¬ 
ground. The printed message appears in the blue text window. 
Now change Line 10. 



You should see the same program in GR. 6’s screen mode param¬ 
eters. 

Now change Line 20. 

20 COLOR 0 
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The graphic image disappears, as it is displayed in the background 
color, black. 

Now make these changes and additions: 

15 COLOR 1 
20 SETCOLDR 0,4,14 



black 

screen 


The SETCOLOR statement tells the computer to set the graphic 
points to bright pink. The COLOR 1 statement makes them visible. 
Add this: 


26 SETCOLOR 2,1,14 


dark green 
characters 


yellow-green 
text window 
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This SETCOLOR statement changes the text window background 
and characters to green. 

Now add: 

27 SETCOLOR 4,2,14 


pale pink 
box 



green 

characters 


blackish-green 
text window 


yellow 

screen 


In Line 27, SETCOLOR changes color register 4, the graphics’ 
screen background and border, to bright orange—which in turn af¬ 
fects the hue of the graphics points. 

Experiment with the color and luminance variable in Lines 25, 26, 
and 27 to see what combinations you like. Change Line 10 from 
GR. 6 to GR. 4 and see how the dimensions of the graphics modes 
affect the result. 


EXERCISE 6 

In the GRAPHICS 8 mode, Atari’s highest screen resolution, the 
COLOR statement serves the same function as in GR. 4 and GR. 6. 
The COLOR 1 statement enables a visible graphics display. COLOR 
0 makes the plotted points appear invisible. 

This program prints a faint diamond near the center of the screen. 
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tn -t» 


10 GRAPHICS 8 
20 COLOR 1 

30 PLOT 100,80JDRAWTO 120,100 
0 DRAWTO 140,80 JDRAWTO 120,60 
0 DRAWTO 100,80 
60 PRINT "HERE IT IS!" 

The graphics screen and text window in GRAPHICS 8 share the 
same background color. Here they are in blue, the default color. 

In GRAPHICS 8, the SETCOLOR format is: 

SETCOLOR X, Y, Z or SE. X,Y,Z 
X is the color register. 

When X = 1 the luminance of the plotted points is af¬ 
fected. 

When X = 2 the graphic screen, points, text windows, 

and characters are set to color Y, luminance 
Z. 

When X = 4 the border is set to color Y, luminance Z. 

Y is the color variable, from 0 to 14. 

Z is the luminance variable, from 0 to 14 in even increments. 
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Add this line to your program: 
25 SETCOLOR 1,8,0 



In GRAPHICS 8 the SETCOLOR statement affecting color register 
1, regardless of the color variable, changes the luminance of the 
graphics points and the text characters. Here it makes them as dark as 
possible, to contrast with the background. 

Now add this: 

26 SETCOLOR 2,4,14 

pink 
screen 
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This SETCOLOR statement sets the graphic screen background, 
graphic points, text window, and text characters to bright pink. 
Add: 

27 SETCOLOR 4,8,9 



This last SETCOLOR statement fills the border, color register 4, 
with blue. 

Try different color and luminance variables in Lines 26 and 27 to 
find the combinations that appeal to you. 
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FISH 


Use this program to make a fish. 

Can you change the size of this fish and add others to the picture? 1 



PROGRAM LISTING 

1 0 l) G i s* A I"' M X C S 7 +1 6 
:L 0 5 COLOR 1 
110 PLOT 32,75 
117' SETCOLOR 0,11,8 
120 DR A WTO 4 8,7 0 
130 DRAWTO 55,75 
140 DRAWTO 48,79 
150 DRAWTO 31,72 
160 DRAWTO 32,75 
170 PLOT 51,74 
180 GOTO 180 

NOTES 

Line 100: GRAPHICS 7+16 tells the computer to use the full 
screen of graphics mode 7 to run this program. 

Line 105: COLOR 1 says use COLOR 1 to enable SETCOLOR 
statements. 

Line 117: SETCOLOR says fill the color register 0, the graphics 
points on the screen, with color 11, blue-green, with a luminance of 8 
average brightness. 

Line 180: GOTO tells the computer to keep the program in a contin¬ 
uous loop, enabling graphic mode 7’s full screen, until you BREAK 
the run. 
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CAR 


Here is a car ready to drive across the screen. 

Try to design your favorite sports car or a racing model. 



PROGRAM LISTING 

10 0 GRAPHICS 7 
1 0 5 C0L0R 1 5 S£TC0L.OR 0,2,1 4 
107 SET COLOR ‘1,8,8 

109 REM ***DRAW CAR 

110 PLOT 50,30 

12 0 DRAWTO 60,301 DRAW!0 65,25 

130 DRAWTO 85,25 

140 DRAWTO 90,30 

150 DRAWTO 98,30 

160 DRAWTO 98,35 

170 DRAWTO 50,35 

180 DRAWTO 50,30 

135 REM *x*DRAW TIRES 

190 PLOT 56,35:DRAWTO.60,32 

195 DRAWTO 64,35 

200 DRAWTO 59,38:DRAWTO 56,35 

210 PLOT 86,35:DRAWTO 90,32 

220 DRAWTO 94,35 

225 DRAWTO 89,38:DRAWTO 86,35 


NOTE 


Line 100: GRAPHICS 7 puts the program run in the regular graphics 
7 mode, with a text window. 
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Line 105: SETCOLOR sets the color and luminance of the graphic 
points. 

Line 107: Here SETCOLOR sets the color and luminance of the 
graphic screen’s background. 

Lines 109, 185: The Remark (REM) statement includes nonexecut¬ 
able statements in the body of the program, which can only be seen in 
program listing, for the benefit of the user. 
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FISHING SORT 


This fisherman is hoping a fish will come along. 

See if you can change the program to make his boat look like a 
cabin cruiser, or add some fish to the picture. 



PROGRAM LISTING 

100 GRAPHICS 3 

11 0 C01...0R 1 1 SETC0L.0R 0,2,1 4 

.12 0 SET CO LOR 4,8,8 

130 SETCOLOR 2,13,14 

135 REM **DRAW BOAT 

14 0 P L. 0 T 20,20 5 D R A W T 0 30,20 

150 DRAWTO 30,75 DRAWTO 34,7 

160 DR A WTO 34,2.0 J DRAW TO 55,20 

170 DRAWTO 49,26 

180 DRAWTO 26,26 

190 DRAWTO 20,20 

195 REM xokDRAW MAN 

20 0 PLOT 45,125 DRAWTO 42,10 

210 DRAWTO 45,8JDRAWTO 48,10 
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220 DRAWTO 45 >12 2 DRAWTO 45,20 
230 DRAWTO 45 , 171 DRAWTO 49,13 
240 DRAWTO 78,36 

NOTES 

Line 100: This program runs in graphics mode 5. 

Line 110: This SETCOLOR statement assigns color and luminance 
to the graphic points. 

Line 120: Here SETCOLOR assigns color and luminance to the 
graphic screen’s background. 

Line 130: This SETCOLOR statement affects the text window back¬ 
ground and characters. 
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WINDMILL 


The computer draws the arms of a windmill. 

Add to the program to make it a pinwheel or propellor. 



PROGRAM LISTING 

1 0 0 G R A F‘ H10 9 5 

:l. 1 0 C 0 L G R 1 % S EIC G L 0 R 0 , 1 , 1 1 

120 9ETC0LGR 1,8,10:SETC0L0R 2,3, 

130 PLOT 10,204 DRAWTO 50,20 

110 DRAWTO 10,101DRAWTO 20,30 

150 DRAWTO 10,20 

16 0 PLOT 30,51DRAWTO 30,35 

170 DRAWTO 12,30 1 DRAWTO 18,10 

175 DRAWTO 30,5 

ISO PLOT 11,201DRAWTO 22,23 

190 PLOT 19,201DRAWTO 25,25 

20 0 PLOT 17,20 1 DRAWTO 39,12 

210 PLOT 13,20 1 DRAWTO 35,11 
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C-4 n <T 


0 PLOT 30,9?DRAWTO 21,12 
0 PLOT 30,12? DRAWTO 2T,11 
0 PLOT 30,33?DRAWTO TO,28 
25 0 P L.. 0 T 3 0,3 0 ? D R A M T0 3 6 ,2 6 
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SNOUUFLRK6S 


Fill the screen with different-sized snowflakes. 

Change the program to print out even more random snowflakes 
on your screen. 



PROGRAM LISTING 

100 GRAPHICS 8 

11 0 C 01... 0 R J. t S E T C 0 L 0 R 1,1 , 14 
112 SETCOLOR 2,8,2 

114 SETCOLOR 4,4,14 

115 FOR T1 TO 8 

12 0 L IN T (R N D ( 1 ) * 15+3 ) 

13 0 X ® IN T < R N D < 1) * 2 8 0 + 2 0 ) 

14 0 Y=IN T<RN D<1)*120+20) 

150 PLOT X-L,Y l DRAWTO X+L,Y 
160 PLOT X , Y--L J DRAWTO X,Y+L 
170 L=L~3 

180 sx=x-l:sy=y-l 

20 0 PLOT SX,BY %DRAWTO SX+(2*L),SY+(2*L) 
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2.10 SY=Y + L 

2 2 0 F : ' L. 0 T S X , S Y i D R A W T 0 S X + ( 2 * L ) , 8 Y - C 2 * L.) 
230 NEXT I 

NOTES 

Line 100: GRAPHICS 8 puts this program run in graphics mode 8. 

Line 110: SETCOLOR 1,1,14 makes the graphic points as bright as 
possible. 

Line 112: This SETCOLOR statement sets the background and text 
window color. 

Line 114: Here SETCOLOR affects the border of the screen. 

Line 120: This RND statement finds a random number between 

3 and 15 to change the size of the flakes. 

Line 130: This RND statement finds a random number between 
20 and 280 for the starting position on the X axis. 

Line 140: The RND statement here finds a random number between 
20 and 120 for the starting position on the Y axis. 

Line 150: PLOT is used to position the snowflakes. The X, Y coordi¬ 
nates are set to the numeric variables in Lines 130 and 140. 
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SRILBORT 


Draw a picture on your screen of a sailboat. 
Can you add some sea gulls to the picture? 



PROGRAM LISTING 

100 GRAPHICS 5+16 

1 0 2 C 0 L 0 R 1 J S E T C 0 L 0 R 0,3,8 

1.0 4 SET COLOR 4 , 8,2 

106 REM ***DRAW BOAT 

110 PLOT 30 ,351DEAWTO 65,35 

115 DRAWTO 60,39 

120 DRAWTO 35,39 

125 DEAWTO 30,35 

130 PLOT 53,351DRAWTO 53,6 

1.35 DEAWTO 5 0,91 DEAWTO 53,9 

1. 4 0 F : ' L 0 T 53,1 0 1 D R A W T O 31,3 3 

145 DEAWTO 64,331DEAWTO 53,10 

147 REM ***DRAW HORIZON 

15 0 PL0T 0,201DRA W T0 42,20 

155 PLOT 58,201DEAWTO 79,20 

157 REM ***DRAW MOON 

1.6 0 PLOT 9,21 DR AWT O 13,2. 

165 DRAWTO 15,3IDEAWTO 15,4 
.170 DEAWTO 13,6 I DR A WTO 9,6 
175 DEAWTO 7,5 IDEAWTO 7,4 IDEAWTO 9,3 
180 GOTO ISO 
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NOTE 


Line 100: This program runs in the full screen of graphics mode 5. 
Since there is no text window, no SETCOLOR statement for color 
register 2 is needed. 
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CAMPGROUND 


Here’s a campground scene. 

Try adding some figures or trees to the picture. 


o 



PROGRAM LISTING 

:!. 0 0 GRAPHICS 7+16 

11 0 SEIC0L0R 1,9,14 l C0LOR 1 

112 SETCOLOR 4,9,0 

114 REM ***DRAW HORIZON 

120 PL 0 T 0,20 l D R AWTO 159,20 

125 REM ***DRAW MOON 

130 PLOT 125,3:DRAWTO 130,3 

.14 0 DR A WTO 134,5 i DR A WTO 134,7 

150 DRAWTO .130,10* DR A WTO 125,10 

160 DRAWTO 121,7:DRAWT0 12.1,5 1 DRAWTO 125,3 

165 X»25tY*35:S=l 

170 GOSUB 40 0 

ISO X«90fY=45:S=2 

190 GOSUB 400 
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20 0 X-55 J Y=705S~2 ♦ 5 

210 GOSLJE! 50 0 

220 X=130 J Y'-90 JS=2,75 

230 GOSUE: 50 0 

240 GOTO 900 

390 REM ***ANGLE 1 

400 PLOT X,YiDRAWTO X,Y~<5*S) 

410 DRAWTO X+(8*S),Y-(11*S) 

420 DRAWTO X+<15*S)»Y-(5*S> 

430 DRAWTO X+<8*S>,Y 
440 DRAWTO X~(5*S),Y 
450 DRAWTO X»Y-(5*S> 

460 DRAWTO X+<8*S),Y 

470 RETURN 

490 REM ***ANGLE 2 

50 0 PLOT X» YiDRAWTO X,Y-(5*S) 

510 DRAWTO X-<8*S),Y-(11*S> 

520 DRAWTO X-<15*S)»Y-<5*S) 

530 DRAWTO X-(8*S),Y 
540 DRAWTO X+(5*S) # Y 
550 DRAWTO X,Y-(5*S) 

560 DRAWTO X-(8*S),Y 
570 RETURN 
900 GOTO 900 

NOTES 

Line 100: This program runs in graphic mode 7’s full screen. 

Lines 165, 180, 200, 220: X and Y are set as the starting coordinates 
of each tent. S is the size variable. 

Lines 400-470, 500-570: These are subroutines, which draw the 
tents angled to face toward the left or the right. 
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PICTURE 


Draw this picture with your computer. 

What additions can you make to the scene? 



PROGRAM LISTING 

100 GRAPHICS 7+16 
110 COLOR USETCOLOR 1,0,0 
112 SET COLOR -1,8,2 

115 R E M sc sc S E T P 0 SIT10 N /SCALE 0 F T R E E S 

12 0 X--120 : Y~10 i S~1 

13 0 GO SUE: 60 0 

150 X :::! 30 I Y ~50 * S- 1.75 

160 GOSUB 600 

200 REM **HORIZON 

205 PLOT 0,2 5 J DRAWT0 108,25 

210 PLOT 133,25 5 DRAWTO 159,25 

210 REM *»HOUSE 

25 0 PLOT 62,58,* DR A WTO 107,58 

260 DRAWTO 107,855DRAWTO 62,85$DRAWT0 62,58 
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265 REM **WINDOWS & DOOR 

270 DRAWTO 85,32}DRAWTO 107,58 

280 PLOT 70,48«DRAWTO 70,42 

290 DRAWTO 73,42}DRAWTO 73,45 

300 PLOT 70,65:DRAWTO 77,65 

310 DRAWTO 77,70:DRAWTO 70,70 i DRAWTO 70,65 

320 PLOT 90,65:DRAWTO 97,65 

330 DRAWTO 97,70 : DRAWTO 90,7“0: DRAWTO 90,65 

350 PLOT 80,85:DRAWTO 80,73 

360 DRAWTO 87,73:DRAWTO 87,85 

390 REM **MAN 

TOO PLOT .120,77:DRAWTO 124,77 

410 DRAWTO 124,805DRAWTO 120,80:DRAWTO 120,77 

420 PLOT 122,79:DRAWTO 122,87 

430 PLOT 122,81:DRAWTO 118,86 

440 PLOT 122,81:DRAWTO 126,86 

450 PLOT 119,93:DRAWTO 122,87 

460 DRAWTO 125,93 

490 REM ***DOG 

500 PLOT 140,87:DRAWTO 138,87:DRAWTO 140,85 

510 DRAWTO 148,94 

520 PLOT 140,94}DRAWTO 144,90 

530 DRAWTO 150,90}DRAWTO 155,94 

540 PLOT 145,94}DRAWTO 155,88 

550 REM **SUN 

560 PLOT 30,3}DRAWTO 34,3 

565 X=34:Y=3 

570 FOR 1=1 TO 3:DRAWTO X+I,Y+i:NEXT I 
572 DRAWTO 37,8 

575 Xl=37:Yl=e:r-0R 1=1 TO 3 

576 DRAWTO X1-I,Y1 + 1}NEXT I 
580 DRAWTO 30,11}X=30JY=11 

582 FOR 1=1 TO 3}DRAWTO X-I,Y-I}NEXT I 
585 DRAWTO 27,5 • 

587 X=27}Y=5 

590 FOR 1=1 TO 3}DRAWTO X+I,Y-I 
595 GOTO 900 

600 REM ***TREES ROUTINE 

605 PLOT X,Y:DRAWTO X-(10*8),Y+(10*8) 

610 DRAWTO X-(5*8),Y+<10*8) 

620 DRAWTO X~(16*8>,Y+<18*8> 

630 DRAWTO X-(2*8) , Y+ <18*8) 
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640 DRAWTO X-(2*S) ,Y+<22*S) 
650 DRAWTO X+<2*8),Y+<22*8) 
660 DRAWTO X+< 2*S ), Y+ < 18*S ) 
670 DRAWTO X+<16*S>,Y+< 18*S> 
680 DRAWTO X+<5*S),Y+<10*S> 
700 DRAWTO X+< 10*8),Y+(10*8) 
710 DRAWTO X,Y 
720 RETURN 
800 GOTO 900 
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ANIMATION 


COLOR 1 and COLOR 0 statements make it easy 
to move objects around on the screen. 

PROGRAMS 

1. Warmups 

2. Walking Figure 

3. Flying Bird 

4. Jumping Fish 

5. Helicopter 





UURRMUPS 


Moving a shape across the screen requires 3 steps: 

1. Draw the shape. 

2. Erase the shape. 

3. Draw it in a new location. 

The faster the computer can do steps 1, 2, and 3, the faster the 
shape will move. If there is a delay between steps 2 and 3, the shape 
will flicker as it moves. 

Any of the graphics statements can be used to draw the shape with 
COLOR 1. Then, to erase it, use the same statements, but set the 
COLOR statement to 0, the background color. 

EXERCISE 1 

Use the PLOT statement to draw a block of color and then move it 
across the screen. 



black screen 

gold block 
blue text window 


10 GRAPHICS T 
20 FOR X=1 TO 79 
30 COLOR 1JPL0T X,3Q 
"10 FOR 1=1 TO 50tNEXT I 
50 COLOR 0♦PLOT X,30 
60 NEXT X 
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Take out the Wait Loop in Line 40 and see how fast the block 
moves across the screen. 

Change the program to move the block up the screen. 



10 GRAPHICS 4 
20 FOR Y=39 TO 1 STEP -1 
30 COLOR It PLOT ^0 , Y 
40 FOR I«1 TO 50tNEXT I 
50 COLOR 0 t PLOT 40,Y 
60 NEXT Y 


EXERCISE 2 

Now draw a rocket in graphics mode 8 and make it blast up the 
screen 
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10 GRAPHICS s:x=100 
2 0 FOR Y~150 TO 40 STEP -10 
30 COLOR 3:G0SUB 70 
4 0 IF Y=10 0 THEN END 
50 COLOR OJGOSUB 70 
60 NEXT Y 

70 REH ***DRAW ROCKET 

SO PLOT X,YJDRAWTO X»Y--30 

90 DRAWTO X+3,Y-35JDRAWTO X+6,Y-30 

100 DRAWTO X + 6, Y}DRAWTO X + 3,Y-5 

110 DRAWTO X,Y 

120 RETURN 

Line 30 sets COLOR to 1 and then calls the subroutine that draws 
the rocket. Line 50 erases the rocket by setting COLOR to 0, or the 
background color, before calling the same subroutine. Repeating 
these steps moves the rocket up the screen. 

Add a Wait Loop between Lines 40 and 50 and see if you like the 
result. 


EXERCISE 3 

This exercise moves a car across the screen. 
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10 GRAPHICS 8 
15 Y-l00 

20 FOR X-230 TO 25 STEP -IS 
30 COLOR 1iGOSUP 80 
4 0 COLOR 0 i GOSUB 80 
50 NEXT X 
60 END 

70 REM **DRAW CAR 
80 PLOT X > Y J DRAWTO X+20,Y 
9 0 DRAWTO X+27, Y+8JDRAWTO X+38,Y+8 
100 DRAWTO X+38»Y+15 J DRAWTO X-22,Y+1S 
110 DRAWTO X-22 f Y+8}DRAWTO X~10,Y+8 
120 DRAWTO X,Y 

130 PLOT X-12»Y+161DRAWTO X-12,Y+1B 
140 PLOT X-11»Y+19*.DRAWTO X-7,Y+19 
150 PLOT X-6#Y + 18JDRAWTO X~6,Y+16 
160 PLOT X+18,Y+16JDRAWTO X+18,Y+18 
170 PLOT X+19,Y+19J DRAWTO X+23,Y+19 
180 PLOT X+24,Y+18J DRAWTO X+24,Y+16 
.190 RETURN 
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WALKING FIGUR6 


Make a simple cartoon character walk across the screen. 

To make your own figure, just draw your character in two or more 
walking positions and then alternate the positions as you move your 
figure across the screen. 

Try making an animal walk or run across the screen. 



PROGRAM LISTING 

:l. GRAPHICS 0 

100 GRAPHICS 8 

110 COLOR 1J SETCOLOR 1,1,0 

112 SETCOLOR 2,4,2 

115 SETCOLOR 2,4,10 

120 X--30 ♦ Y=50 

150 FOR X~30 TO 250 STEP 15 

160 COLOR 1 *GOSUB 210 

165 COLOR OJGOSUE: 210 

ISO COLOR i:GOSUB 310 

185 COLOR 0 J GOSUB 310 

190 NEXT X 

200 STOP 

205 REM ***DRAW POSITION 1 
210 PLOT X-5,Y + 8 J DRAW!0 X-10,Y+8 
215 DRAWTO X-l0,Y-2JDRAWTO X+10,Y-2 
217 DRAWTO X+10,Y+8 l DRAWTO X-5,Y+8 
220 PLOT X-5,Y+8!DRAWTO X-15,Y+20 
230 DRAWTO X+15,Y+20 
240 DRAWTO X+5,Y+8 
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250 PLOT X-5,Y + 20IDRAWTO X+5,Y+20 
255 DRAWTO X+5,Y+25IDRAWTO X-5,Y+25 
257 DRAWTO X-5,Y+20 
26 0 PLOT X ,Y+20I DRAWTO X+5,Y+20 
265 DRAWTO X+5,Y+25IDRAWTO X,Y+25 
267 DRAWTO X,Y+20 

270 PLOT X-5,Y+25IDRAWTO X+10,Y+25 
280 DRAWTO X+10,Y+30IDRAWTO X-5»Y+30 
290 DRAWTO X-5,Y+25 
300 RETURN 

305 REM ***DRAW POSITION 2 

310 PLOT X-5,Y+8IDRAWTO X-10,Y+8 

315 DRAWTO X-l0,Y-2IDRAWTO X+10,Y~2 

317 DRAWTO X+l0,Y+8IDRAWTO X-5,Y+8 

320 PLOT X-5,Y+8IDRAWTO X-15,Y+20 

330 DRAWTO X+l5,Y+20 

340 DRAWTO X+5,Y+8 

350 PLOT X-5,Y+20IDRAWTO X-10,Y+20 

355 DRAWTO X-l0,Y+25IDRAWTO X-5,Y+25 

357 DRAWTO X-5,Y+20 

36 0 PLOT X-10,Y+25JDRAWTO X,Y+25 

365 DRAWTO X,Y+30JDRAWTO X~10,Y+30 

367 DRAWTO X-l0,Y+25 

370 PLOT X + 10,Y+20JDRAWTO X+15»Y+20 

375 DRAWTO X+15,Y+25IDRAWTO X+10,Y+25 

377 DRAWTO X+10,Y+20 

3S0 PLOT X+10,Y+25IDRAWTO X+20,Y+25 

390 DRAWTO X+20,Y+30IDRAWTO X + l0,Y+30 

400 DRAWTO X+10,Y+25 

410 RETURN 

NOTE 


Lines 160-185: The drawings of the figure are placed in subroutines 
starting on Lines 210 and 310. This helps the programmer separate 
the action part of the program from the initial drawings. First each po¬ 
sition is drawn with COLOR 1, making it visible. Then it is drawn with 
COLOR 0, and disappears into the background color. 
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FIVING BIRD 


Make a bird fly across the screen. This program uses three positions 
of the bird’s wings in order to simulate motion. 

Try making a bird or a butterfly of your own. 



PROGRAM LISTING 

100 GRAPHICS 8 

.1 .i. l> L 0 1... 0 R 1 '> b 1“ I w 0 L. (j K 1 f .1. f U 

11 5 S E T C C L. 0 E 2,8 ? 1 1 
120 Y=*0 

130 REM jkxokmOVE ACROSS 
110 FOE X“=:L5 TO 20 0 STEP 15 

15 0 c: 0 L 0 E 1 1 E L 0 T X , Y *, G 0 S U & 19 5 
155 COLOR 0 ? PLOT X,Y1GOSUB 195 

1 6 0 C 0 L 0 R 1 5 P L 01 X - 5 , Y - 5 I G 0 S U B 2 5 0 
165 COLOR 01 PLOT X-5 , Y-5 1 GOSUB 250 
170 C 0 L 0 R 1 J P L. 0 T X - 5 , Y -1 0 « G 0 S U B 31 0 
175 COLOR 0 1 PLOT X-5,Y-101GOSUB 310 
ISO NEXT X 

190 STOP 

195 REM #**POSITION 1 
200 DRAWTO X+2S,Y~10 
210 DRAWTO X+35 , Y+10 
220 DRAWTO X+15,Y-10 
230 DRAWTO X+70,Y 
210 RETURN 

250 REM ***pOSXTION 2 
260 DRAWTO X+25,Y-10 

270 DRAWTO X+30,Y+10 

2.3 0 DRAWTO X+15 f Y-5 
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CO CO CO NJ 


90 DRAWTG X+7G,Y~5 
00 RETURN 

1 0 REM xok*PGSITION 3 
20 DRAWTG X+35,Y+lU 
330 DRAWTG X+70»Y~10 
340 RETURN 

NOTE 

Lines 150-170: Each pair of GOSUB statements displays a different 
position of the bird’s wings. 
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JUMPING FISH 


This fish swims across the screen and also jumps out of the water 
until you hit the BREAK key. 

Change the speed he swims by changing the step increments on 
Lines 160 and 300. 


*o 

PROGRAM LISTING 

100 GRAPHICS 8 

110 COLOR 15 SETCOLOR 1 ,1 , 1 

120 SETCOLOR 2,8,12 

130 X~65 i Y-=.'l. TO 

1T 0 R E M * )K x< D R A W K A i E R 

1b0 COLOR 1 4 PLuI 0,80 ♦DRAW I 0 319,80 

155 REM ***HQVE ACROSS 

160 FOR X-65 TO 165 STEP 10 

1 7 0 CO 1...OR 1 i PL0T X , Y l GOSUB 35 0 

18 0 C 01... 0 R 0 J P L 0 T X , Y 1 G O S O B 3 5 0 
190 NEXT X 

195 REM xofoxJUMP UP 
20 0 FOR Y~1T0 TO TO STEP -5 
210 COLOR .15 PLOT X,YJGGSUB 350 
220 COLOR 0lPLOT X#YiGOSUB 350 
230 NEXT Y 

235 REM jkjk*JUMP DOWN 
2T0 FOR Y~T0 TO 1T0 STEP 5 
25 0 COL.OR 1 : PLOT X , Y i G OSUB 35 0 
260 COLOR 0 1 PLOT X, Y t GOSLJB 350 
270 NEXT Y 
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275 REM x**REDRAW FISH & WATER 

28 0 C 0 L. 0 R 1 J P L. D T X , Y : G 0 S tJ B 3 5 0 

290 COLOR ItPLOT 0,801DRAWTO 319,80 

295 REM jk**MOVE ACROSS 

30 0 FOR X-175 TO 265 STEP 10 

310 COL.OR 1 : PLOT X , Y t GOSUB 350 

320 COLOR 0 l PLOT X,Y:GOSUB 350 

330 NEXT X 

3-TO GOTO 145 

350 REM *x*DRAW FISH 

360 DRAWTO X+31,Y-l0JDRAWTO X+45,Y 

370 DRAWTO X+31, Y+S *. DRAWTO X~3,Y~5 

380 DRAWTO X, Y J PLOT' X + 38,Y-2 

390 RETURN 


NOTES 


Lines 155-190: Move the fish across the screen. 

Lines 195-230: Make the fish jump up. 

Lines 235-270: Make the fish jump down. 

Lines 295-330: Move the fish the rest of the way across the screen. 
Lines 350-390: Subroutine that draws the fish. 
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H6LICOPT6R 


Watch your computer draw a helicopter flying above a city skyline 
and landing on a building in this program. 

Once you get this program up and running, try adding some win¬ 
dows to the buildings. 





PROGRAM LISTING 

1 0 0 G R A P HIC 3 8 1 C 0 L 0 R 1 1 Q E T C 0 L D R 1,1, 1 T 

115 BETC0L.GR 2,9,0 

117 REM ***DRAW SKYLINE 

120 pL0T 0,1501DR A WT0 319,150 

130 PLOT 0,551 DRAWTO 16,55 

135 D R AWTO 16,1201D R A W T0 TO,120 

ISO D R A W T 0 T 0,701 D R A W "f O 100,7 0 

155 DRAWTO 100,951 DRAWTO 155,95 

160 DRAWTO 155,801 DRAWTO 200,80 

170 DRAWTO 20 0,901 DRAWTO 26 0,90 

180 DRAWTO 260,1201DRAWTO 300,120 

190 DRAWTO 300,150 

20 0 REM *sokMGON 
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210 PLOT 250,10 
220 DRAWTO 260,10 
230 DRAWTO 264,13 
240 DRAWTO 266,16 
250 DRAWTO 268,19 
260 DRAWTO 268,21 
270 DRAWTO 266,24 
275 DRAWTO 264,27 
280 DRAWTO 260,27 
285 DRAWTO 250,27 

290 DRAWTO 246,24 

291 DRAWTO 244,21 

292 DRAWTO 242,19 

293 DRAWTO 242,16 

294 DRAWTO 244,13 

295 DRAWTO 246,11 

296 DRAWTO 250,10 

298 REM #**MOYE ACROSS 

30 0 FOR X~20 TO 260 STEP 20 

305 Y=30 

310 COLOR 1JGOSUB 40 0 
320 COLOR 0 »COSUE: 40 0 
325 NEXT X 

327 REM ***MOVE DOWN 

330 FOR Y"40 TO 90 STEP 10 

335 X=280 

340 COLOR 1♦ COSUE: 40 0 
350 COLOR OJGOSUB 400 
360 NEXT Y 

370 COLOR i;COSUE: 40 0 
380 STOP 

390 REM ***DRAW COPTER 
400 PLOT X,Y 

410 DRAWTO X+6,Y-4 

411 PLOT X,Y *DRAWTO X + 8,Y 

412 PLOT X,Y{DRAWTO X~8,Y 

413 PLOT X,YJDRAWTO X-6,Y+4 
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415 PLOT X,YJDRAWTO X t Y+6 

416 DRAWTO X~3,Y+6{DRAWTO X+6,Y+6 

417 DRAWTO X+6,Y+8tDRAWTO X+8 # Y+8 

418 DRAWTO X~6,Y+8JDRAWTO X~6,Y+10 

419 DRAWTO X-l0,Y+l0JDRAWTO X+10,Y+10 

420 PLOT X,Y+l0:DRAWTO X,Y+16 

421 DRAWTO X-8,Y+l6JDRAWTO X+8,Y+16 
425 RETURN 
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FUN WITH 
G€OM6TRV 


You can use the built-in functions SIN and COS to 
draw many geometric shapes, such as a square, 
triangle, or circle. You can even make flowers and 
fancy designs. 

PROGRAMS 

1. Warmups 

2. Apple Tree Harvest 

3. Leaping Fish 

4. Bird and Flower 

5. Fancy Graphics 





UUfiftMUPS 


EXERCISE 1 


Use the SIN function to draw a wave across the top of your 
screen. 



100 GRAPHICS 8:COLOR 1 

110 H=io: D=20: c=i: a=0: B =20 

120 PLOT A,D 

130 FOR X=A JO B STEP C 

140 Y=SIN (X) *H+D 

150 DRAWTO X *H, Y 

160 NEXT X 


The numeric variables on Line 110 are used as follows: 


H: height of wave 
D: location on Y axis 
A: beginning point on X axis 
B: last point on X axis 
C: size of step along X axis 

Experiment with different values for these variables and see how 
the wave changes. 

Replace the SIN function with the COS function on Line 140 and 
see how the wave changes. 


EXERCISE 2 

We can use the SIN and COS functiohs to draw any angle we 
want. This example draws 0 degrees, 45 degrees, 90 degrees, and 
135 degrees. 
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100 GRAPHICS 8:COLOR 1 

110 PRINT"INPUT LENGTH OF LINE,ANGLE" 

120 INPUT R,A 

130 AR=A*(3.14159/180) 

140 X1=R*C0S<AR>+100 
150 Y1=-R*SIN(AR)+100 
160 PLOT 100,100:DRAWTO X1,Y1 
170 GOTO 120 

Experiment with different values of R and A and see what angles 
you make. 

Line 130 converts the angle A from degrees to radians, using the 
equation: 

Radians = degrees * (Pl/180) for Pl = 3.14159 

Lines 140 and 150 determine the ending X,Y coordinate for the 
line and add these values to the point 100,100. This translates the 
0,0 point from the top left point on the screen to 100,100. 

Line 150 uses a negative R because the Y coordinate on your 
screen is the reverse of the Y coordinate on a normal X,Y axis. The 
Y coordinate on your screen increases as you move down rather than 
up. Therefore, you must change the sign of Y in order to make it the 
same as a normal X,Y axis. 


EXERCISE 3 

Draw a circle using the SIN and COS functions. These equations: 

X = R*COS(I) + XC 
Y = -R*SIN(I) + YC 
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give the X,Y coordinates for any point on the circumference of a cir¬ 
cle with a radius of R and center at XC,YC. 



100 GRAPHICS 8:COLOR 1 

no xc=ioo: yc=75: R=30: 

115 s=0:E=6.6:J=.3 

120 PLOT XC+R,YC 

130 FQR I=S TO E STEP J 

140 X=R*COS ( I> +XC 

150 Y=~R*SIN<I)+YC 

160 DRAWTQ X,Y 

170 NEXT I 


The numeric variables on Line 110 are used as follows: 

XC: center of circle X-axis 
YC: center of circle Y-axis 
R: radius of circle 
S: radians to begin drawing 
E: radians to end drawing 
J: increment to step while drawing 

S and E determine which part of the circle is drawn. To make a 
complete circle, set S = 0 and E = 6.6. To draw a part of the circle, 
change S or E to any number between 0 and 6.6. Experiment with 
different combinations for S and E and see which part of the circle 
you make. Just be sure to make E larger than S 
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Change the value of J and see how it affects your circle. 

To make an ellipse, make R different for X than Y. 

150 Y = - 1.5 * R * COS(I) + YC 

Vary the shape of the ellipse by changing the radius R for X and Y. 


EXERCISE 4 

Draw a flower using the SIN and COS functions. 



100 GRAPHICS S:COLOR 1 

110 N=4: A=50.* PI =3. 14159 

120 M=N*PI*2.5 

130 PLOT 100,100 

140 FOR 1=0 TO M STEP .05 

150 R=A*SIN<N*I> 

160 X=R*COS<I)+100 
170 Y=-R*SIN<I>+100 
180 DRAWTO X,Y 
190 NEXT I 
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The numeric variables on Line 110 are used as follows: 


A: size of the flower 
N: number of petals drawn 

If N is even, flower has 2 * N petals 
If N is odd, flower has N petals 

Change the value of N and see what your flower looks like. Try 
using a decimal number for N and see what you get. 

Line 150 uses an equation called “N-leaved rose” to find a value for 
R. Notice that R changes each time the FOR ... NEXT loop executes. 


EXERCISE 5 

We can use these equations to draw geometric shapes also. To make 
a triangle, we need to draw 3 sides, turning 120 degrees each time. 



100 GRAPHICS S:COLOR 1 
11O A= l 20*(3.14159/1SO> 

120 R=40*. AR=A 

130 X2=R*C0S(AR > +100 

140 Y2=-R*SIN(AR)+100 

145 REM**DRAW SIDE 1 

150 PLOT 100,100:DRAWTO X2,Y2 

ISO AR=AR+A: X1=X2: Y1=Y2 

170 X2=R*C0S(AR)+X1 

1 SO Y2=—R*SIN(AR)+Y1 

1S5 REM**DRAW SIDE 2 

190 PLOT Xl,Yl:DRAWTO X2,Y2 

195 REM**DRAW SIDE 3 

200 PLOT X2,Y2:DRAWTO 100,100 
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The numeric variables are used as follows: 


A: angle in degrees 
AR: angle in radians 
R: length of side 

X1,Y1: X,Y coordinates for start of line 
X2,Y2: X,Y coordinates for end of line. 

Lines 130,140 and 170,180 add the new values of X,Y to the 
starting coordinates XI,Yl. This moves the origin each time to the 
starting point of the line. 


EXERCISE 6 

To draw a square, draw 4 sides and turn 90 degrees. 


100 GRAPHICS S:COLOR 1 
110 A=360/4 

120 AR=A*<3.14159/180) . 

130 X1=150: Y1=150: R=20 
140 PLOT XI,Yl 
150 FOR 1=0 TO 3 
160 X2=R*C0S<AR*I)+X1 
170 Y2=-R*SIN<AR*I) +-Y1 
180 DRAWTO X2,Y2 
190 X1=X2: Y1=Y2 
200 NEXT I 

This program is a more efficient version of Exercise 5. The sides are 
drawn inside the FOR . . . NEXT loop on Lines 150-200. 
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EXERCISE 7 


Now you can draw a N-sided shape just by changing Exercise 6 as 
follows: 

105 INPUT N 
110 A=360/N 
150 FOR 1=0 TO N-l 

Try different values of N and see what shapes you make. How 
large must N be before your shape looks like a circle? 

Now try using these ideas in some programs. 
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flPPl€ TR€€ HRRV6ST 


Use the equations for an ellipse to draw an apple tree. This tree 
starts out with 10 apples, but some fall off. 

Create your own picture by adding other figures to this one. 
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PROGRAM LISTING 

100 GRAPHICS 8 
1 0 2 C 0 L. 0 R 1 i 8 E T C 0 L 0 R 1 f 1 , 1 4 
10''} SET COLOR 4,8,0 
1 06 S b I C 0 L 0 R 2 t 6 . 2 
110 DIM X(10),Y(10) 

120 RX-75 J RY=45.XC== 152 % YC=55 JPI =3 . 141 

130 PLOT XC t RY+YC 

135 REM *x*DRAW TREE 

140 FOR I ==-0.3 TO 2*PI STEP 0.3 

150 S=RX*SIN<I)+XC 

155 T=RY*COS(I)+YC 

160 DRAWTO S,T 

165 NEXT I 

167 DRAWTO S', T+50 t DRAWTO S+25,1+50 

169 DRAWTO S+25,T 

170 REM xxxpUT ON APPLES 
ISO FOR C=1 TO 10 

190 A-INT(RND(1)*85)+115 

195 B=INT(RND<1)*65)+20 

200 PLOT A,B-3♦DRAWTO A+3,6-2 

202 DRAWTO A+5, Bt DRAWTO A+3,B+2 

204 DRAWTO A, 8+3 

206 DRAWTO A-3,6+1 i DRAWTO A~5,B 

208 DRAWTO A -3,B~2 5 DRAWTO A,B-3 

209 X<C)*AJY(C)=6 

210 NEXT C 

212 REM ***APPLES FALL 

215 FOR C=10 TO .1 STEP -2 

216 A=X < C)J B=Y(C) 

22 0 FOR D=Y < C) TO 15 0 STEP 3 

230 COLOR 0 

240 GOSUB 300 

241 B=D 

245 COLOR 1 

250 GOSUB 300 

255 NEXT D 
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260 NEXT C 
275 STOP 

30 0 PLOT A t B-3t DRAWTO A+3,B~2 
30 2 DRAWTO A+5 , E :l DRAWTO A+3,B+2 
30^ DRAWTO A , B+3 
306 DRAWTO A-3,B+l i DRAWTO A~$,B 

308 DRAWTO A-3,B-2{DRAWTO A,B-3 

309 RETURN 

NOTES 

Lines 140-165: Draw an ellipse for the tree. 

Lines 180-210: Put apples on the tree and save the X,Y coordinates 
for each apple in arrays X and Y. Line 190 finds a random X location 
for the apple within the circumference of the ellipse. Line 195 finds a 
random Y location. 

Lines 215-260: Move every other apple to the bottom of the screen. 
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L6RPING FISH 


Make our fish program from Chapter 5 more realistic by changing 
the line to a wave and making the fish jump in an arc instead of 
straight up. 

Add some other fish or sea life and create your own underwater 
picture. 





PROGRAM LISTING 

10 0 GRAPHICS 8 i C0L.OR USE TC0L0R 1,1 ,1 4 
115 SETCOLOR 2,9,1 

117 SETCOLOR 4,9,1 
120 GOSUB 320 

140 PI=3.141S9JR=50 

150 Y ::: 80 { YC-80 

155 REM hokxMOVE ACROSS 

160 FOR X=10 TO 100 STEP 10 

170 COLOR 1♦GOSUB 390 

175 COLOR OJGOSUB 390 

ISO NEXT X 

190 XC=X+50 

195 REM ***JUMP UP 

200 FOR 1=3 TO 2 STEP “0,3 

210 X=R*COS(I)+XC 

220 Y=-R*SIN<I)*1.5+YC 

230 COLOR lJGOSUB 390 

235 COLOR 05GOSUB 390 
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260 NEXT I 
265 Y=80 

267 REM ***MOVE ACROSS 

270 FOR X-160 TO 20 0 STEP 10 

280 COLOR 1 ♦ GQSUB 390 

285 COLOR 0JCOSUB 390 

290 NEXT X 

310 STOP 

320 REM ***DRAW WAVE 

330 PLOT 1,50 

340 FOR X=1 TO 20 STEP 1 

350 Y~SIN(X)*10+50 

360 DRAWTO X*14,Y 

370 NEXT X 

380 RETURN 

385 REM ***DRAW FISH 
390 PLOT X,Y 

40 0 DRAWTO X+31,Y-10JDRAWTO X+4S,Y 
405 DRAWTO X+31,Y+a;DRAWTO X-3,Y-5 
408 DRAWTO X,Y 
410 PLOT X+38,Y-2 
420 RETURN 


NOTES 

Lines 200-260: Use the equations for a circle to make the fish jump 
in an arc. 

Lines 330-370: Use the SIN function to draw a wave across the 
screen. 

Lines 390-420: Draw the fish. 
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BIRD RND FIOUU6R 


Make the bird from Chapter 5 fly to a flower. 

Change the value of N on Line 130 and see how the flower 
changes. 




PROGRAM LISTING 

1 0 0 l.v hi A P H i. C i:i +16 

ll. 1 0 COLOR 1 5 SR i COLOR 1 ■> 1 * -4 

1 ll. b 8 b. T C 0 L 0 K 2 ■> 1S > 1 4 

117 SETCOLOR 4,8,8 

120 X~ 120 J Y~ 120 ♦ PI--3.1015 9 

130 N=1.5 

140 REM *x*DRAW FLOWER 
145 PLOT X,Y 
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ISO FOR 1=0 TO 5*PI STEP 0,1 
160 R*50*SIN(N*I> 

170 C«R*COS(I-)+X 
ISO D—R*SIN<I)+Y 
190 DRAWTO C,D 
200 NEXT I 

210 REM ccjkxMOVE BIRD 
220 8=30 

230 FOR X-10 TO 90 STEP 4 
240 Y : - < 6/15) *X+B 
25 0 COLOR ltCOSUB 30 0 
255 COLOR OJGOSUB 300 
260 COLOR 11 COSUB 360 
265 COLOR 0tCOSUB 360 
27 0 COLOR 1 * COSUB 42 0 
275 COLOR 0:COSUB 420 
280 NEXT X 

285 COLOR It COSUB 420 
290 GOTO 290 
30 0 REM COMPOSITION 1 
305 PLOT X,Y 
3.10 DRAWTO X+25#Y-10 
320 DRAWTO X+35,Y+1Q 
330 DRAWTO X+45,Y~10 
340 DRAWTO X+60,Y 
350 RETURN 

360 REM COMPOSITION 2 
365 PLOT X-5 t Y-5 
370 DRAWTO X+25,Y-5 
380 DRAWTO X+35,Y+10 
390 DRAWTO X+7 0,Y--5 
400 RETURN 

42 0 REM COMPOSITION 3 
425 PLOT X-5# Y-l0 
430 DRAWTO X+35,Y+10 
440 DRAWTO X+70,Y-1G 
450 RETURN . 


FUN WITH GEOMETRY • 121 




NOTE 


Lines 230-280: Move the bird in a straight line from the point 10,30 
to the top of the flower. Line 240 calculates the Y coordinate using 
the equation of a straight line as follows: 

Y = M * X + B 

where M = slope of line, B = Y intercept. 

In this case, M = 6/15 and B = 30. 
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FfiNCV GRRPHICS 


Make your own spirals and fancy designs. Input 7, 123, 3 when 
this program runs to get this design. 

Experiment with different input values and see what fancy designs 
you can make. 
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PROGRAM LISTING 


1 0 0 G ft A P HIC S 8 J S E T C Q L 0 R id, 14 i C 0 L 0 ft 1 
1 0 b 8 E I C G L„ 0 ft 2, 6 , 0 

110 PRINT "INPUT SIDE, ANGLE, INCREMENT" 
114 SETCOLOR 2,6,0 
120 INPUT ft,A,D 

13 0 N — 3 6 0 / A 

1 4 0 A ~ A sc <3*14 159 / :L 8 0 > 

150 PLOT 100,100 

16 0 XI~10 0♦Yl~l 0 0 
170 1=0 

18 0 X 2=ft *C 0S < A skD+XI 

19 0 Y 2=- ft sc SIN (A * I) + Y1 

20 0 IF X2<0 Oft X2>319 THEN END 
210 IF Y2< 0 OR Y2>159 THEN END 
220 DRAWTO X2,Y2 

230 X1=X2JY1=Y2 
240 R=ft+D 
250 1=1+1 
260 GOTO 180 


NOTES 


Line 140: Converts angle A to radians. 

Lines 180, 190: Determine next X,Y coordinates. 

Lines 200, 210: Stop the program when the design reaches the limits 
of the screen. 

Line 240: Increments the length of side by D. 
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GIOSSRRV 


Term 

CHR$(65) 

COLOR 1 
(C.) 


Cursor 

COS 

Default 

DIM A$ (20) 
(DI. ) 


Definition 

Returns the character corre¬ 
sponding to the ATASCII 
code in the argument. 

Determines the data to be 
stored in display memory for 
all subsequent PLOT and 
DRAWTO statements until 
the next COLOR statement 
is executed. In graphics 
modes 0 through 2, the data 
is an ATASCII character. In 
graphics modes 3 through 8, 
the data enables color. 



Page 


First 

Example 

Used 

CHR$ (65) = A 

p. 34 


In Graphics 2, 

p. 56 

Color 36 = $ 


In Graphics 3 

p. 64 

COLOR 1 = gold 



Marker or symbol on the p. 26 

screen that marks where the 
user’s next action will take 
effect or where the next 
character typed from the 
keyboard will appear. 

Returns the trigonometric COS(5) = .2836624 
cosine of the argument. 

A value, action, or setting 
that is automatically used by 
the computer system when 
no other explicit information 
has been given. 


P- 

108 

p. 12 


Sets aside space for a string DIM A$ (20) p. 37 

variable (here called A$), or 
for an array. 
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DRAWTO 

25, 17 
(DR. ) 

Causes a line to be drawn 
from the last point displayed 
by a PLOT statement, to the 
location specified by the 
DRAWTO statement. 

DR. 220,100 

p. 41 

END 

Terminates the execution of 
the program and returns 
control to the user. 

END 

p. 50 

FOR I = 1 

Allows you to repeat lines 

FOR I = 1 TO 4 

p. 33 

TO 4 

between the FOR and the 



(F. ) . 

NEXT statement four times. 

NEXT I 


NEXT I 
(N. ) 

STEP 

The loop of lines is incre¬ 
mented by the number in the 
STEP statement. If there is 
no STEP statement, the 

FOR I = 1 TO 4 
STEP -1 



loop is incremented by 
one’s. 

NEXT I 


GOSUB 250 
(GOS. ) 

Executes the subroutine 
which begins at line 250. 

GOSUB 250 

p. 31 

GOTO 200 

Branches to line 200. 

GOTO 200 

p. 31 

(G. ) 

GRAPHICS 
(OR. ) 

This command is used to se¬ 
lect one of the nine Atari 
graphics modes. 

GRAPHICS 3 

p. 12 

GRAPHICS 

0 

This command is also used 
as a clear screen command, 
either in Direct or Deferred 
mode. It terminates any pre¬ 
viously selected graphics 
mode and returns the screen 
to the default mode (GR.0). 

GRAPHICS 0 

p. 12 
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IF. . .THEN Executes or skips one or ’ IF A ■= 10 THEN 200 p. 38 
more statements, depending 
on the truth of the stated 
condition. In this example IF 
A - 10, THEN line 200 is 



executed next. Otherwise 
the line after the 

IF. . .THEN statement is 
executed. 


INPUT A 
(I.) 

Reads a line of input from PRINT “ENTER 
the current input device. NUMBER” 

INPUT A 

Ap. 38 

INT (9.5) 

Returns the largest whole INT (9.5) ■» 9 

number less than or equal to 
the argument. 

p. 37 

PLOT 

(PL.) 

Plots a single block at the PLOT 10,20 
specified location on the 

screen. 

p. 41 

POSITION 
(POS. ) 

Places the invisible graphics POSITION 20,30 
window cursor at a specified 
location on the screen. The 
cursor does not actually 
move until an input or out¬ 
put command which uses 
the screen is issued. 

p. 26 

PRINT A 
(PR. or ?) 

Writes.a line of output to the PRINT A$,B,C 
current display device. This 
example writes the value of 

A$, B and C. 

p. 12 

REM 

Includes remarks in the body REM This is a remark p. 78 
of the program for the bene¬ 
fit of the user. 

RETURN 
(RET. ) 

Returns control from a sub- RETURN 
routine to the statement fol¬ 
lowing the GOSUB that 
called the subroutine 

p. 31 
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RND 

Returns a random number 
between 0 and 1. 

RND (1) 

p. 37 

SETCOLOR 

Chooses the particular hue 

SETCOLOR 1,1,114 

p. 41 

(SE. ) 

and luminance to be stored 
in the specified color regis¬ 
ter. 


p. 59 
p. 64 

SIN 

Returns the trigonometric 
sine of the argument. 

SIN 0 - .90929 

P 

108 
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Once you’ve explored the many capabilities of your Atari 
computer, you’ll definitely want to take the next step to 
graphics. This book covers the beginning and intermedi¬ 
ate graphics programming statements available in Atari 
BASIC. By following the exercises, you’ll be able to deco¬ 
rate a Christmas tree, build a pyramid, play hide and seek, 
and create an amazing amount of complex and beautiful 
artwork. And after you’ve familiarized yourself with these 
programs, you can experiment and generate your own 
new and unique designs. 


includes an introduction, an explanation on how to use this 
book, and warm up exercises at the beginning of each 
chapter. It also has a chapter that focuses on the color 
capabilities of your computer. 


is written in BASIC for the Atari 400 or 800 Home Computer 
equipped with a BASIC cartridge. The programs will run on 
either a color or monochrome monitor. 

The possibilities, discoveries, and fun are limitless. All you 
have to do is sit down at your computer and start creating! 


AVON CAMELOT 
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